(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "13-Sep-88 13:01:19" {PHYLUM}<LISP>MEDLEY>PATCHES>SETTIME-PATCH.\;1
 622    

      |changes| |to:|  (VARS SETTIME-PATCHCOMS)
                       (FNS \\TIME.NOT.SET))


; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT SETTIME-PATCHCOMS)

(RPAQQ SETTIME-PATCHCOMS
 ((FNS \\TIME.NOT.SET)))
(DEFINEQ

(\\TIME.NOT.SET

  (LAMBDA NIL
    (ERROR "Time is not set! Call" "(SETTIME \"dd-mmm-yy hh:mm:ss\") and type RETURN")))
)
(PUTPROPS SETTIME-PATCH COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (403 537 (\\TIME.NOT.SET 413 . 535)))))
STOP