(FILECREATED "30-Jun-86 16:25:11" {ERIS}<LISPUSERS>KOTO>COMPAREDIRECTORIES.;1
 3164   

      changes to:  (FNS COMPAREDIRECTORIES)

      previous date: "13-Nov-85 16:26:37" {ERIS}<LISP>KOTO>LISPUSERS>COMPAREDIRECTORIES.;1)


(* Copyright (c) 1985, 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)

(RPAQQ COMPAREDIRECTORIESCOMS
 ((FNS COMPAREDIRECTORIES)))
(DEFINEQ

(COMPAREDIRECTORIES

  [LAMBDA (FROMDIR TODIR ALLFLG)
                             (* lmm "30-Jun-86 16:24")

    (for
 X infiles
 (PACKFILENAME.STRING (QUOTE BODY)
                          FROMDIR
                          (QUOTE BODY)
                          (QUOTE *.*;)) bind
 DT1 DT2 TON SHORT-FROM SHORT-TO
       do
 (if
 [SETQ TON (INFILEP (PACKFILENAME.STRING (QUOTE DIRECTORY)
                                        TODIR
                                        (QUOTE VERSION)
                                        NIL
                                        (QUOTE BODY)
                                        (SETQ SHORT-FROM (PACKFILENAME.STRING (QUOTE HOST)
                                                                NIL
                                                                (QUOTE DIRECTORY)
                                                                NIL
                                                                (QUOTE DEVICE)
                                                                NIL
                                                                (QUOTE BODY)
                                                                X]
              then
 (if
 [EQUAL (SETQ DT1 (GETFILEINFO X (QUOTE ICREATIONDATE)))
                              (SETQ DT2 (GETFILEINFO TON (QUOTE ICREATIONDATE]
                       then
                                  (* same)

                            (if
 ALLFLG
                                then
 (PRINTOUT T SHORT-FROM "[" (GDATE DT1)
                                            "]" " same" T))
                     else
 (PRINTOUT T SHORT-FROM "[" (GDATE DT1)
                                 "/"
                                 (GETFILEINFO X (QUOTE AUTHOR))
                                 "]"
                                 (if
 (LESSP DT1 DT2)
                                     then
 "<"
                                   else
 ">")
                                 (PACKFILENAME.STRING (QUOTE DIRECTORY)
                                        NIL
                                        (QUOTE HOST)
                                        NIL
                                        (QUOTE BODY)
                                        TON)
                                 "["
                                 (GDATE DT2)
                                 "]" T))
            else
 (PRINTOUT T SHORT-FROM "[" (GETFILEINFO X (QUOTE CREATIONDATE))
                        "/"
                        (GETFILEINFO X (QUOTE AUTHOR))
                        "]," " not found" T])
)
(PUTPROPS COMPAREDIRECTORIES COPYRIGHT ("Xerox Corporation" 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (408 3070 (COMPAREDIRECTORIES 418 . 3068)))))
STOP