(FILECREATED " 9-Apr-84 10:25:41" <DONC>PQUOTE..5    1222

      changes to:  (VARS PQUOTECOMS)

      previous date: " 9-Apr-84 10:21:05" <DONC>PQUOTE..3)


(PRETTYCOMPRINT PQUOTECOMS)

(RPAQQ PQUOTECOMS ((FNS READ%' PRINTQUOTE)
		   (P (SETSYNTAX 39 (QUOTE (MACRO FIRST NONIMMEDIATE 
						  ESC READ%'))
				 T)
		      (SETSYNTAX 39 (GETSYNTAX 39 T)
				 NIL)
		      (SETSYNTAX 39 (GETSYNTAX 39 T)
				 EDITRDTBL)
		      (SETSYNTAX 39 (GETSYNTAX 39 T)
				 FILERDTBL)
		      (SETQ PRETTYPRINTMACROS
			    (CONS (CONS (QUOTE QUOTE)
					(QUOTE PRINTQUOTE))
				  PRETTYPRINTMACROS))
		      (* ALISTS and ADDVARS fail here))))
(DEFINEQ

(READ%'
  [LAMBDA (FILE RDTBL)
    (KWOTE (READ FILE RDTBL])

(PRINTQUOTE
  [LAMBDA (X)
    (COND
      ((AND (LISTP (CDR X))
	    (NULL (CDDR X)))
	(PRIN1 "'")
	(PRINTDEF (CADR X)
		  (POSITION))
	NIL)
      (T X])
)
(SETSYNTAX 39 (QUOTE (MACRO FIRST NONIMMEDIATE ESC READ%'))
	   T)
(SETSYNTAX 39 (GETSYNTAX 39 T)
	   NIL)
(SETSYNTAX 39 (GETSYNTAX 39 T)
	   EDITRDTBL)
(SETSYNTAX 39 (GETSYNTAX 39 T)
	   FILERDTBL)
(SETQ PRETTYPRINTMACROS (CONS (CONS (QUOTE QUOTE)
				    (QUOTE PRINTQUOTE))
			      PRETTYPRINTMACROS))
(* ALISTS and ADDVARS fail here)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (634 861 (READ' 644 . 704) (PRINTQUOTE 706 . 859)))))
STOP