(FILECREATED "22-Jun-84 06:58:32" {IVY}<HTHOMPSON>LISP>COMHACK.;2
 1441   

      changes to:  (VARS COMHACKCOMS)

      previous date: "21-Jun-84 21:03:03" {IVY}<HTHOMPSON>COMHACK.;3)


(PRETTYCOMPRINT COMHACKCOMS)

(RPAQQ COMHACKCOMS
 ((E (SETQ CLISPIFYPRETTYFLG NIL))
		    (FNS \StripComments)
		    [P (MAPC '(\DWIMIFYBLOCK/CLISPIF \DWIMIFYBLOCK/CLISPFOR CLISPFOR CLISPIF)
			     (FUNCTION (LAMBDA (X)
					       (COND ((GETD X)
						      (ADVISE X 'AROUND
							      '(PROG ((**OldForm** FORM))
								     (SETQ FORM (\StripComments
									     FORM))
								     *
								     (PUTHASH **OldForm**
									      (GETHASH FORM 
										       CLISPARRAY)
									      CLISPARRAY)
								     (PUTHASH FORM NIL)
								     (RETURN **OldForm**]
		    (E (SETQ CLISPIFYPRETTYFLG T))))
(DEFINEQ

(\StripComments

  [LAMBDA (form)                                             (* ht: "21-Jun-84 20:45")

    (MAPCONC form (FUNCTION (LAMBDA (elt)
		 (COND
		   ((EQ (CAR (LISTP elt))
			COMMENTFLG)
		     NIL)
		   (T (CONS elt NIL])
)
[MAPC '(\DWIMIFYBLOCK/CLISPIF \DWIMIFYBLOCK/CLISPFOR CLISPFOR CLISPIF)
      (FUNCTION (LAMBDA (X)
			(COND ((GETD X)
			       (ADVISE X 'AROUND '(PROG ((**OldForm** FORM))
							(SETQ FORM (\StripComments FORM))
							*
							(PUTHASH **OldForm** (GETHASH FORM CLISPARRAY)
								 CLISPARRAY)
							(PUTHASH FORM NIL)
							(RETURN **OldForm**]
(DECLARE: DONTCOPY
  (FILEMAP (NIL (814 1066 (\StripComments 824 . 1064)))))
STOP