(FILECREATED "14-Aug-85 14:51:04" {ERIS}<LISPCORE>LIBRARY>CMLOPT;1
 625    

      changes to:  (MACROS DEFOPT)
		   (VARS CMLOPTCOMS))


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

(PRETTYCOMPRINT CMLOPTCOMS)

(RPAQQ CMLOPTCOMS
 ((MACROS DEFOPT)
		   (P (PUSHNEW COMPILERMACROPROPS (QUOTE OPTIMIZER)))))
(DECLARE: EVAL@COMPILE 
(DEFMACRO DEFOPT (NAME ARGS &REST BODY)
	  (BQUOTE (PUTPROPS (\, NAME)
			    OPTIMIZER
			    (DEFMACRO (\, ARGS)
				      (\,@ BODY)))))
)
(PUSHNEW COMPILERMACROPROPS (QUOTE OPTIMIZER))
(PUTPROPS CMLOPT COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP