(FILECREATED "13-Nov-85 16:26:37" {ERIS}<LISPUSERS>COMPAREDIRECTORIES.;5
 2554   

      changes to:  (FNS COMPAREDIRECTORIES)

      previous date: "30-Oct-85 15:56:17" {ERIS}<LISPUSERS>COMPAREDIRECTORIES.;4)


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

(PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)

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

(COMPAREDIRECTORIES

  [LAMBDA (FROMDIR TODIR ALLFLG)                             (* lmm "13-Nov-85 16:26")

    (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
 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))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (387 2465 (COMPAREDIRECTORIES 397 . 2463)))))
STOP