(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 11:30:38" ("compiled on " {DSK}sources>CMLSYMBOL.;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:47:55" {DSK}local>lde>lispcore>sources>CMLSYMBOL.;2 2209 changes to%: (VARS CMLSYMBOLCOMS) previous date%: "23-Mar-87 16:05:27" {DSK}local>lde>lispcore>sources>CMLSYMBOL.;1) (RPAQQ CMLSYMBOLCOMS ((* ;; "Latter part of the symbol functions. The rest are in LLSYMBOL") ( OPTIMIZERS GET CL:GETF CL:SYMBOL-PLIST) (SETFS GET CL:SYMBOL-PLIST CL:SYMBOL-VALUE CL:SYMBOL-FUNCTION) (FUNCTIONS %%SET-GET) (PROP FILETYPE CMLSYMBOL))) CL::optimize-GET :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) %@AH¹HZ»J¼ggIhKLNIL (25 CL:SYMBOL-PLIST 20 CL:GETF) () (PUTPROP (QUOTE GET) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-GET) (GET (QUOTE GET) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-GETF :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) '@1H¹HZ»JµgIKh²ógNIL (36 IGNOREMACRO 21 LISTGET) () (PUTPROP (QUOTE CL:GETF) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-GETF) (GET ( QUOTE CL:GETF) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-SYMBOL-PLIST :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHhNIL (10 GETPROPLIST) () (PUTPROP (QUOTE CL:SYMBOL-PLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-SYMBOL-PLIST) (GET (QUOTE CL:SYMBOL-PLIST) (QUOTE COMPILER:OPTIMIZER-LIST)))) (CL::SET-SETF-INVERSE (QUOTE GET) (QUOTE %%SET-GET)) (CL::SET-SETF-INVERSE (QUOTE CL:SYMBOL-PLIST) (QUOTE SETPROPLIST)) (CL::SET-SETF-INVERSE (QUOTE CL:SYMBOL-VALUE) (QUOTE SET)) (CL::SET-SETF-INVERSE (QUOTE CL:SYMBOL-FUNCTION) (QUOTE SETF-SYMBOL-FUNCTION)) expand-%%SET-GET :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 5@aH¹HZ»J\½Ld¾gIKN›gMNh€MhNIL (37 PROGN 28 PUTPROP) () (SETF-MACRO-FUNCTION (QUOTE %%SET-GET) (QUOTE expand-%%SET-GET)) (PUTPROPS CMLSYMBOL FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLSYMBOL COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990)) NIL