(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "10-Sep-2021 21:25:42" {DSK}<home>larry>medley>greetfiles>NOGREET.;1
 537    )


(PRETTYCOMPRINT NOGREETCOMS)

(RPAQQ NOGREETCOMS
 [(P (COND ((STKPOS 'GREET)
                                  (SETQ USERGREETFILES NIL)
                                  (CLOSEF? (INPUT))
                                  (RETFROM 'GREET])

[COND
   ((STKPOS 'GREET)
    (SETQ USERGREETFILES NIL)
    (CLOSEF? (INPUT))
    (RETFROM 'GREET]
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP