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

(FILECREATED "17-May-90 15:50:03" |{DSK}<usr>local>lde>lispcore>sources>SYSPRETTY.;2|
 1233   

      |changes| |to:|  (VARS SYSPRETTYCOMS)

      |previous| |date:| " 3-Dec-86 22:14:12" |{DSK}<usr>local>lde>lispcore>sources>SYSPRETTY.;1|)


; Copyright (c) 1986, 1990 by Venue & Xerox Corporation.  All rights reserved.

(PRETTYCOMPRINT SYSPRETTYCOMS)

(RPAQQ SYSPRETTYCOMS
 ((GLOBALVARS SYSPRETTYFLG)
                          (FNS SHOWPRINT SHOWPRIN2)
                          (INITVARS (SYSPRETTYFLG))))
(DECLARE\: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS SYSPRETTYFLG)
)
(DEFINEQ

(showprint

  (lambda (x file rdtbl)
                                     (* |lmm| "14-Aug-84 20:40")

    (cond
       (sysprettyflg (printdef x t nil nil nil file)
              (terpri file))
       (t (print x file rdtbl)))
    x))

(showprin2

  (lambda (x file rdtbl)
                                     (* |lmm| "14-Aug-84 20:40")

    (cond
       (sysprettyflg (printdef x t nil nil nil file))
       (t (prin2 x file rdtbl)))
    x))
)

(RPAQ? SYSPRETTYFLG
 )
(PUTPROPS SYSPRETTY COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (638 1112 (SHOWPRINT 648 . 892) (SHOWPRIN2 894 . 1110)))))
STOP