(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "16-May-90 20:24:51" {DSK}<usr>local>lde>lispcore>sources>MACROAUX-OPTIMIZERS.;2
 766    

      changes to%:  (VARS MACROAUX-OPTIMIZERSCOMS)

      previous date%: "23-Sep-86 20:01:04" {DSK}<usr>local>lde>lispcore>sources>MACROAUX-OPTIMIZERS.;1
)


(* ; "
Copyright (c) 1986, 1990 by Venue & Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT MACROAUX-OPTIMIZERSCOMS)

(RPAQQ MACROAUX-OPTIMIZERSCOMS
 ((OPTIMIZERS EVALUABLE.CONSTANT.FIXP)))

(DEFOPTIMIZER EVALUABLE.CONSTANT.FIXP
 (X)
                                          `[FIXP (CAR (EVALUABLE.CONSTANTP ,X])
(PUTPROPS MACROAUX-OPTIMIZERS COPYRIGHT ("Venue & Xerox Corporation" 1986 1990))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP