(FILECREATED "13-Feb-85 22:54:37" {PHYLUM}<LFG>PARSER>PRETTYCOM1PATCH.;1
 1469   

      changes to:  (FNS PRETTYCOM1))


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

(PRETTYCOMPRINT PRETTYCOM1PATCHCOMS)

(RPAQQ PRETTYCOM1PATCHCOMS
 ((FNS PRETTYCOM1)))
(DEFINEQ

(PRETTYCOM1

  [LAMBDA (PRTYCOM PRTYFLG REMOVECOMMENTS)                   (* rmk: "13-Feb-85 22:54")

    (
PROG
 (PRTYX)
          [
COND

	    ((
AND
 (
EQ
 [
CAR
 (
LISTP
 (
SETQ
 PRTYX (
CDR
 PRTYCOM]
		      (
QUOTE
 *))
		  (
CDR
 PRTYX))
	      (
COND

		((
AND
 (
LITATOM
 (
SETQ
 PRTYX (
CADR
 PRTYX)))
		      PRTYFLG)                               (* Checks to see if the variable is already being 

							     dumped and dumps it if not.)

		  (
PRETTYCOM
 PRTYX)))
	      (
SETQ
 PRTYX (
COND

		  (PRTYFLG (
EVAL
 PRTYX))
		  ((
LITATOM
 PRTYX)
		    (
AND
 (
NEQ
 (
SETQ
 PRTYX (
GETTOPVAL
 PRTYX))
			      (
QUOTE
 NOBIND))
			 PRTYX))
		  (T (
RESETVARS
 (DWIMLOADFNSFLG)
			        (
RETURN
 (
AND
 (
ERSETQ
 (
SETQ
 PRTYX (
EVAL
 PRTYX)))
					     PRTYX]
          (
RETURN
 (if
 (
AND
 REMOVECOMMENTS (
LISTP
 PRTYX))
		      then
 [
SUBSET
 PRTYX (
FUNCTION
 (LAMBDA (X)
				       (
OR
 (
NLISTP
 X)
					   (
NEQ
 (
CAR
 X)
						COMMENTFLG]
		    else
 PRTYX])
)
(PUTPROPS PRETTYCOM1PATCH COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (283 1383 (PRETTYCOM1 293 . 1381)))))
STOP