(FILECREATED " 3-JAN-83 22:41:24" <LISPUSERS>PQUOTE.;4
    1640

      changes to:  (VARS PQUOTECOMS)
		   (FNS PRINTQUOTE)

      previous date: "20-APR-82 17:42:48" <LISPUSERS>PQUOTE.;1)


(* Copyright (c) 1982, 1983 by Xerox Corporation)

(PRETTYCOMPRINT PQUOTECOMS)

(RPAQQ PQUOTECOMS
 ((E (RESETSAVE FILEQUOTEFLG)
		      (* so this file doesn%'t have %' in it))
		   (FNS PRINTQUOTE)
		   (ALISTS (PRETTYPRINTMACROS QUOTE))
		   (VARS (FILEQUOTEFLG T))
		   (GLOBALVARS FILEQUOTEFLG)
		   (P (* Set up readmacros. note that naked %' prints with escape)
		      (SETSYNTAX (QUOTE %')
				 '(MACRO FIRST READ%')
				 T)
		      (SETSYNTAX (QUOTE %')
				 '(MACRO FIRST READ%')
				 FILERDTBL))))
(DEFINEQ

(PRINTQUOTE

  [LAMBDA (X)                      (* lmm " 3-JAN-83 22:38")

    (COND
      ([AND FORMFLG FILEQUOTEFLG (LISTP (CDR X))
	    (NULL (CDDR X))
	    (COND
	      ((LISTP (CADR X))
		(NEQ (CAADR X)
		     (QUOTE *)))
	      (T (AND (NEQ (CADR X)
			   (QUOTE '))
		      (ILEQ (IPLUS (NCHARS (CADR X)
					   T)
				   (POSITION)
				   2)
			    LASTCOL]
	(PRIN1 (QUOTE '))
	(OR (CADR X)
	    (PRIN2 NIL)))
      (T                           (* Print it by default)

	 X])
)

(ADDTOVAR PRETTYPRINTMACROS
 (QUOTE . PRINTQUOTE))

(RPAQQ FILEQUOTEFLG
 T)
(DECLARE: DOEVAL@COMPILE DONTCOPY

(ADDTOVAR GLOBALVARS FILEQUOTEFLG)
)
(* Set up readmacros. note that naked %' prints with escape)
(SETSYNTAX (QUOTE %')
	   (QUOTE (MACRO FIRST READ%'))
	   T)
(SETSYNTAX (QUOTE %')
	   (QUOTE (MACRO FIRST READ%'))
	   FILERDTBL)
(PUTPROPS PQUOTE COPYRIGHT ("Xerox Corporation" 1982 1983))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (706 1210 (PRINTQUOTE 716 . 1208)))))
STOP