(FILECREATED "24-Sep-86 12:36:06" ("compiled on " {ERIS}LIBRARY>CMLSYMBOL.;28) "16-Sep-86 11:57:30" in "Xerox Lisp 16-Sep-86 ..." dated "16-Sep-86 12:29:41") (FILECREATED "24-Sep-86 12:35:19" {ERIS}LIBRARY>CMLSYMBOL.;28 15039 changes to: (VARS CMLSYMBOLCOMS CMLTRANSLATED) previous date: "27-Aug-86 15:58:05" {ERIS}LIBRARY>CMLSYMBOL.;27 ) (RPAQQ CMLSYMBOLCOMS ((* ;; "Bogus definitions needed until packages are in the loadup. DO NOT FORGET to remove the advice on COMP.USERFN in the BYTECOMPILER." ) (FNS MAKE-SYMBOL COPY-SYMBOL INTERN MAKE-KEYWORD GENTEMP KEYWORDP DWIMKEYWORD) (DECLARE: DONTEVAL@LOAD DOCOPY (ADDVARS (DWIMUSERFORMS (DWIMKEYWORD)))) (VARS CMLTRANSLATED) (FNS CMLTRANSLATE) (* ;; "%"Symbol functions. SET BOUNDP REMPROP are already in Interlisp%"") (FNS MAKUNBOUND SYMBOL-NAME SYMBOL-VALUE GET GETF GET-PROPERTIES) (OPTIMIZERS GET GETF SYMBOL-PLIST) (P (MOVD (QUOTE GETPROPLIST) (QUOTE SYMBOL-PLIST))) (SETFS GET SYMBOL-PLIST SYMBOL-VALUE SYMBOL-FUNCTION) (FNS FBOUNDP FMAKUNBOUND SYMBOL-FUNCTION SETF-SYMBOL-FUNCTION) (INITVARS (*GENSYM-COUNTER* 0) (*GENSYM-PREFIX* "G" )) (FUNCTIONS CL:COPY-SYMBOL CL:GENSYM CL:MAKE-KEYWORD CL:GENTEMP CL:KEYWORDP) (PROP FILETYPE CMLSYMBOL) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA GETF GET GENTEMP INTERN COPY-SYMBOL MAKE-SYMBOL))))) MAKE-SYMBOL D1 (L (0 NAME)) @@ g@ (22Q GENSYM 17Q CONCATENATE 7 GENSYM) (13Q STRING) () COPY-SYMBOL D1 (L (1 COPY-PROPS 0 SYMBOL)) @ AH@ H(23Q COPY-LIST 3 GENSYM) NIL () INTERN D1 (L (0 -args-)) [ekalHglaZdg&I I I gI gI JgI gJo (130Q ECASE-FAIL 114Q PACK* 77Q SET 74Q PACK* 65Q PACK* 55Q SET 52Q PACK* 46Q PACK* 41Q KEYWORDP) (120Q PACKAGE 105Q PCL 70Q : 61Q : 31Q KEYWORD 20Q PCL) ( 125Q (KEYWORD NIL PCL)) MAKE-KEYWORD D1 (I 0 X) G@ l:9o@l l:#o@khi o@khi @l @ b@d (104Q SET 74Q PACK* 67Q SUBSTRING 60Q STRPOS 43Q STRPOS 22Q NTHCHARCODE 3 CHCON1) NIL ( 50Q "IL" 33Q "CL" 14Q ":") GENTEMP D1 (L (1 PACKAGE 0 PREFIX)) @hdi (6 GENSYM) NIL () KEYWORDP D1 (I 0 X) @k l:(4 NTHCHARCODE) NIL () DWIMKEYWORD D1 (F 0 FAULTX F 1 FAULTAPPLYFLG) QhPlPk l:P (31Q MAKE-KEYWORD 20Q NTHCHARCODE) NIL () (ADDTOVAR DWIMUSERFORMS (DWIMKEYWORD)) (RPAQQ CMLTRANSLATED (APPEND APPLY ARRAYP ASSERT ASSOC ATAN ATOM BLOCK BREAK CHARACTER COERCE COLLECT COMPILE COS COUNT DELETE DO DO* ELT EQUAL ERROR EVAL EVALHOOK EVERY EXPT FINALLY FIND FIRST FLOOR FUNCTION GCD GETHASH IF INITIALLY INTERSECTION JOIN LAMBDA LDIFF LENGTH LISTP LOG MAP MAPC MAPC MAPCAR MAPCON MAPHASH MAPLIST MEMBER MERGE MOD NOTANY NOTEVERY NREVERSE NTH POP POSITION PRIN1 PRINT PUSH PUSHNEW PUTHASH READ REMOVE REPLACE REVERSE SETQ SIN SOME SORT SQRT STRINGP SUBLIS SUBST SUM TAN TERPRI UNION UNLESS UNTIL WHEN ZEROP *)) CMLTRANSLATE D1 (I 0 X F 0 CMLTRANSLATED) =@dl$Po@ o@khi @l @@d @ (72Q WALK-RECONS 67Q CMLTRANSLATE 62Q CMLTRANSLATE 46Q SUBATOM 37Q STRPOS 22Q PACK*) NIL ( 27Q "IL:" 16Q "CL:") MAKUNBOUND D1 (I 0 SYMBOL) @g (6 SET) (3 NOBIND) () SYMBOL-NAME D1 (I 0 SYMBOL) @ (6 MKSTRING) (3 LITATOM) () SYMBOL-VALUE D1 (I 0 SYMBOL) @,NIL (3 LITATOM) () GET D1 (L (2 DEFAULT 1 INDICATOR 0 SYMBOL)) @AB (11Q GETF) NIL () GETF D1 (L (2 DEFAULT 1 INDICATOR 0 PLACE)) &@HBo@ HXHdA(23Q CL:ERROR) NIL ( 17Q "~S is a malformed property list.") GET-PROPERTIES D1 (P 0 PLIST I 1 INDICATOR-LIST I 0 PLACE) ;@Hddd o@ HXHAgg HHH (70Q VALUES 55Q CL:MEMBER 52Q SYMBOL-FUNCTION 27Q CL:ERROR 13Q VALUES) (47Q EQ 44Q :TEST) ( 23Q "~S is a malformed proprty list.") optimize-GET D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) !@AHHZJggIhKLNIL (25Q SYMBOL-PLIST 22Q GETF) () (PUTPROP (QUOTE GET) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE GET) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-GET)))) optimize-GETF D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@1HHZJ gIKhgNIL (40Q IGNOREMACRO 23Q LISTGET) () (PUTPROP (QUOTE GETF) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE GETF) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-GETF)))) optimize-SYMBOL-PLIST D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHNIL (7 GETPROPLIST) () (PUTPROP (QUOTE SYMBOL-PLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE SYMBOL-PLIST) ( QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-SYMBOL-PLIST)))) (MOVD (QUOTE GETPROPLIST) (QUOTE SYMBOL-PLIST)) (REMPROP (QUOTE GET) (QUOTE SETF-INVERSE)) (REMPROP (QUOTE GET) (QUOTE SETFN)) setf-expander-GET D1 (L (1 env-GET 0 whole-GET)) } @ ll@ og@ @AHHZJdMNLOhIKLdhOhgMNOhgMNLOh (172Q VALUES 100Q GENSYM 75Q GENSYM 72Q GENSYM 67Q GENSYM 40Q CL:ERROR 35Q CL:LENGTH 17Q CL:LENGTH 4 CL:LENGTH) (152Q GET 136Q PUTPROP 30Q GET) ( 25Q "Setf expander for ~S cannot be called with ~S args.") (PUTPROP (QUOTE GET) (QUOTE SETF-METHOD-EXPANDER) (QUOTE setf-expander-GET)) (REMPROP (QUOTE SYMBOL-PLIST) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS SYMBOL-PLIST SETF-INVERSE SETPROPLIST) (REMPROP (QUOTE SYMBOL-VALUE) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS SYMBOL-VALUE SETF-INVERSE SET) (REMPROP (QUOTE SYMBOL-FUNCTION) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS SYMBOL-FUNCTION SETF-INVERSE SETF-SYMBOL-FUNCTION) FBOUNDP D1 (I 0 FN) @l@ @ @ i(24Q MACRO-FUNCTION 17Q ARGTYPE 12Q SPECIAL-FORM-P) NIL () FMAKUNBOUND D1 (I 0 SYMBOL) @ (3 PUTD) NIL () SYMBOL-FUNCTION D1 (I 0 FN) .@dl! @ djdlih@ @l. (53Q \LISPERROR 43Q GETD 20Q ARGTYPE 12Q SPECIAL-FORM-P) NIL () SETF-SYMBOL-FUNCTION D1 (I 1 VAL I 0 FN) @A AA AAdl i (35Q PUTD 31Q GETD 14Q EXPRP 4 CCODEP) NIL () (RPAQ? *GENSYM-COUNTER* 0) (RPAQ? *GENSYM-PREFIX* "G") CL:COPY-SYMBOL D1 (L (1 COPY-PROPS 0 SYM)) K@Hl1@ A!H@ H@ H@ HigHg b(104Q CHECK-TYPE-FAIL 65Q COPY 51Q SETF-SYMBOL-FUNCTION 46Q SYMBOL-FUNCTION 40Q SET 35Q SYMBOL-VALUE 22Q MAKE-SYMBOL 17Q SYMBOL-NAME) (101Q SYMBOL 75Q SYM) () CL:GENSYM D1 (L (0 X) F 2 *GENSYM-COUNTER* F 3 *GENSYM-PREFIX*) S@H$H H3 igHo b߹jI@d @c3 @cgSR Rkc(112Q CL:MAKE-SYMBOL 107Q CONCATENATE 104Q MKSTRING 56Q CL:STRINGP 35Q CHECK-TYPE-FAIL 12Q CL:STRINGP) (77Q SIMPLE-STRING 25Q X) ( 32Q (OR NULL STRING (INTEGER 0 CL:*))) CL:MAKE-KEYWORD D1 (L (0 SYMBOL) F 0 *KEYWORD-PACKAGE*) @ P (7 CL:INTERN 3 SYMBOL-NAME) NIL () CL:GENTEMP D1 (L (0 -args-) F 7 *PACKAGE*) jekHokaQlHWlaI[ %J\`*jgIM ^J $NJ igKg YigLg ZMk԰(140Q CHECK-TYPE-FAIL 122Q CHECK-TYPE-FAIL 106Q CL:INTERN 77Q FIND-SYMBOL 72Q CONCATENATE 67Q MKSTRING 42Q CL:STRINGP) (135Q PACKAGE 131Q PACKAGE 117Q STRING 113Q PREFIX 62Q SIMPLE-STRING 52Q PACKAGETYPE#) ( 13Q "T") CL:KEYWORDP D1 (L (0 OBJECT) F 0 *KEYWORD-PACKAGE*) @l@ P(12Q SYMBOL-PACKAGE) NIL () (PUTPROPS CMLSYMBOL FILETYPE COMPILE-FILE) (PUTPROPS CMLSYMBOL COPYRIGHT ("Xerox Corporation" 1986)) NIL