Show
Ignore:
Timestamp:
08/18/11 08:09:13 (3 years ago)
Author:
rjs
Message:

Update.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/lisp/lmio1/xgp.lisp

    r253 r254  
    8383                                    (substring date-time 0 midpt))) 
    8484     (format q-stream ";Status ~A       LM ~C ~A  1 page        ~A ~%" 
    85              user-id user-group-affiliation date-time file) 
     85             user-id fs:user-group-affiliation date-time file) 
    8686     (if xgp-delete-scan-file (format q-stream ";DELETE~%")) 
    8787     (format q-stream ";SCAN~2%~A~%" file)