(FILECREATED "10-Dec-84 17:06:02" {PHYLUM}<IDL>SOURCES>PREPATCHTEST.;2
 1300   

      changes to:  (VARS PREPATCHTESTCOMS)
		   (MACROS LOADTIMECONSTANT))


(* Copyright (c)  by NIL. All rights reserved.)

(PRETTYCOMPRINT PREPATCHTESTCOMS)

(RPAQQ PREPATCHTESTCOMS
 ((MACROS LOADTIMECONSTANT)
			 (FNS LTCMAC)))
(DECLARE: EVAL@COMPILE 

(PUTPROPS LOADTIMECONSTANT MACRO
 ((X)
				  (
DEFERREDCONSTANT
 X)))

(PUTPROPS LOADTIMECONSTANT DMACRO
 [X (LIST (QUOTE QUOTE)
					   (CONS LOADTIMECONSTANTMARKER (LTCMAC (CAR X])

(PUTPROPS LOADTIMECONSTANT BYTEMACRO
 (= . DEFERREDCONSTANT))
)
(DEFINEQ

(LTCMAC

  [LAMBDA (FORM)                                             (* rmk: "11-MAY-79 10:55")

                                                             (* Produces (perhaps) a copy of FORM with translations 

							     replacing clisp.)

    (
SETQ
 FORM (
OR
 (
GETHASH
 FORM CLISPARRAY)
		   FORM))
    (
COND

      [[
AND
 (
LISTP
 FORM)
	    (
FMEMB
 (
ARGTYPE
 (
CAR
 FORM))
		   (
QUOTE
 (0 2]                              (* Probably should take translations for open lambda's 

							     too.)

	(
CONS
 (
CAR
 FORM)
	      (for
 F in
 (
CDR
 FORM) collect
 (LTCMAC
 F]
      (T FORM])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (605 1278 (LTCMAC 615 . 1276)))))
STOP