Changeset 254 for trunk/lisp/lmio1/xgp.lisp

Timestamp:

08/18/11 08:09:13 (21 months ago)

Author:

rjs

Message:

Update.

Files:

• trunk/lisp/lmio1/xgp.lisp (modified) (1 diff)

trunk/lisp/lmio1/xgp.lisp

@@ -83 +83 @@
                                     (substring date-time 0 midpt)))
      (format q-stream ";Status ~A       LM ~C ~A  1 page        ~A ~%"
-             user-id user-group-affiliation date-time file)
+             user-id fs:user-group-affiliation date-time file)
      (if xgp-delete-scan-file (format q-stream ";DELETE~%"))
      (format q-stream ";SCAN~2%~A~%" file)