(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 10:30:39" ("compiled on " {DSK}sources>CMLPRED.;1) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 14:19:02" {DSK}local>lde>lispcore>sources>CMLPRED.;2 1886 changes to%: ( VARS CMLPREDCOMS) previous date%: "24-Oct-86 22:12:28" {DSK}local>lde>lispcore>sources>CMLPRED.;1 ) (RPAQQ CMLPREDCOMS ((FNS CL:CONSP CL:ATOM CL:LISTP CL:INTEGERP CL:SYMBOLP) (OPTIMIZERS CL:ATOM CL:LISTP CL:CONSP CL:INTEGERP CL:SYMBOLP) (PROP FILETYPE CMLPRED))) CL:CONSP :D8 (L (0 X)) @´iNIL NIL () CL:ATOM :D8 (L (0 X)) @hðNIL NIL () CL:LISTP :D8 (L (0 X)) @hðµ@´iNIL NIL () CL:INTEGERP :D8 (L (0 X)) @3 ´iNIL NIL () CL:SYMBOLP :D8 (I 0 X) @d3@ðNIL NIL () CL::optimize-ATOM :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHNIL (9 NLISTP) () (PUTPROP (QUOTE CL:ATOM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-ATOM) (GET ( QUOTE CL:ATOM) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-LISTP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 9 (OPENLAMBDA (X) (OR (NULL X) (AND (LISTP X) T)))) (PUTPROP (QUOTE CL:LISTP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-LISTP) (GET ( QUOTE CL:LISTP) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-CONSP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ggHhoNIL (15 LISTP 10 AND) ( 24 (T)) (PUTPROP (QUOTE CL:CONSP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-CONSP) (GET ( QUOTE CL:CONSP) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-INTEGERP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ggHhoNIL (15 FIXP 10 AND) ( 24 (T)) (PUTPROP (QUOTE CL:INTEGERP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-INTEGERP) (GET (QUOTE CL:INTEGERP) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-SYMBOLP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHNIL (9 LITATOM) () (PUTPROP (QUOTE CL:SYMBOLP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-SYMBOLP) ( GET (QUOTE CL:SYMBOLP) (QUOTE COMPILER:OPTIMIZER-LIST)))) (PUTPROPS CMLPRED FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLPRED COPYRIGHT ("Venue & Xerox Corporation" 1986 1990)) NIL