(FILECREATED "18-Dec-85 02:08:44" ("compiled on " {QV}<LOVSTRAND>LISP>CONNTITLE.;3) 
"12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58")
(FILECREATED "18-Dec-85 02:04:02" {QV}<LOVSTRAND>LISP>CONNTITLE.;3 1276 changes to: (VARS 
CONNTITLECOMS) previous date: "16-Dec-85 22:03:44" {QV}<LOVSTRAND>LISP>CONNTITLE.;2)
(PRETTYCOMPRINT CONNTITLECOMS)
(RPAQQ CONNTITLECOMS ((INITVARS (CONNTITLEWINDOW (OR (AND (BOUNDP (QUOTE \TopLevelTtyWindow)) 
\TopLevelTtyWindow) (PROCESSPROP (QUOTE EXEC) (QUOTE WINDOW)) (CAR (LAST (OPENWINDOWS))))) (
CONNTITLEPREFIX " -- Connected to ") (CONNTITLESUFFIX "")) (ADVISE CNDIR) (P (CNDIR 
\CONNECTED.DIRECTORY))))
(RPAQ? CONNTITLEWINDOW (OR (AND (BOUNDP (QUOTE \TopLevelTtyWindow)) \TopLevelTtyWindow) (PROCESSPROP (
QUOTE EXEC) (QUOTE WINDOW)) (CAR (LAST (OPENWINDOWS)))))
(RPAQ? CONNTITLEPREFIX " -- Connected to ")
(RPAQ? CONNTITLESUFFIX "")
(PUTPROPS CNDIR READVICE (NIL (AFTER NIL (RESHOWTITLE (CONCAT (WINDOWPROP CONNTITLEWINDOW (QUOTE TITLE
)) (OR CONNTITLEPREFIX "") \CONNECTED.DIRECTORY (OR CONNTITLESUFFIX "")) CONNTITLEWINDOW T))))
(READVISE CNDIR)
(CNDIR \CONNECTED.DIRECTORY)
(PUTPROPS CONNTITLE COPYRIGHT ("Xerox Corporation" 1985))
NIL