(FILECREATED " 6-Aug-84 12:20:11" ("compiled on " {ERIS}<SPEECH>LEXICON>LISPUTIL.;2)
" 1-Aug-84 17:04:49" recompiled changes: nothing in "INTERLISP-D 2-Aug-84 ..." dated
" 2-Aug-84 10:31:19")
(FILECREATED " 6-Aug-84 12:20:00" {ERIS}<SPEECH>LEXICON>LISPUTIL.;2 857 changes to: (VARS LISPUTILCOMS
) previous date: " 6-Aug-84 12:18:34" {ERIS}<SPEECH>LEXICON>LISPUTIL.;1)
CNDIR D1
(I 0 DIRECTORYNAME) @ ig o i
id
(32Q DIRECTORYNAME 25Q PUTWINDOWPROP 22Q PACK* 17Q DIRECTORYNAME 3 OLDCNDIR)
(7 TITLE)
( 13Q "Connected to: ")
(PRETTYCOMPRINT LISPUTILCOMS)
(RPAQQ LISPUTILCOMS ((P (IF (NOT (GETD (QUOTE OLDCNDIR))) THEN (MOVD (QUOTE CNDIR) (QUOTE OLDCNDIR))))
(FNS CNDIR)))
(IF (NOT (GETD (QUOTE OLDCNDIR))) THEN (MOVD (QUOTE CNDIR) (QUOTE OLDCNDIR)))
(PUTPROPS LISPUTIL COPYRIGHT ("Xerox Corporation" 1984))
NIL