Quelle  pvs-attachments

(attachments
 |time_fun|
 
 (defattach |real_time| ()
   "Real time"
   (get-internal-real-time))
 
 (defattach |run_time| ()
   "Run time"
   (get-internal-run-time))

 (defattach |internal_time_units| ()
   "Units of internal time"
   internal-time-units-per-second))
 
(attachments
 |pathname|

 (defattach |pathname_path| (name)
   "Path (list of directories) of pathname"
   (let ((dirs (pathname-directory name)))
     (if (equal (car dirs) ':absolute)
  (cons "/" (cdr dirs))
       (cdr dirs))))
 
 (defattach |pathname_name| (name)
   "Name of pathname"
   (pathname-name name))

 (defattach |pathname_type| (name)
   "Type of pathname"
   (pathname-type name)))