(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)


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

(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)))
(DEFINEQ

(CNDIR

  [LAMBDA (DIRECTORYNAME)                                    (* pkh: " 6-Aug-84 11:51")

    (OLDCNDIR DIRECTORYNAME)
    (WINDOWPROP T (QUOTE TITLE)
		(PACK* "Connected to: " (DIRECTORYNAME T)))
    (DIRECTORYNAME T T])
)
(PUTPROPS LISPUTIL COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (532 778 (CNDIR 542 . 776)))))
STOP