(FILECREATED "22-Aug-86 17:52:39" ("compiled on " {ERIS}LIBRARY>CMLSYMBOL.;25) "18-Aug-86 12:42:20" "COMPILE-FILEd" in "Xerox Lisp 18-Aug-86 ..." dated "18-Aug-86 13:55:08") (FILECREATED "22-Aug-86 17:52:04" {ERIS}LIBRARY>CMLSYMBOL.;25 14798 changes to: (VARS CMLSYMBOLCOMS) (FUNCTIONS CL:GENSYM CL:MAKE-KEYWORD CL:GENTEMP) previous date: "15-Aug-86 15:32:24" {ERIS}LIBRARY>CMLSYMBOL.;24) (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) (PROP DMACRO 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 STREAMP 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.") (PUTPROPS GET DMACRO (DEFMACRO (SYMBOL INDICATOR &REST TAIL) (BQUOTE (GETF (SYMBOL-PLIST (\, SYMBOL)) (\, INDICATOR) (\,@ TAIL))))) (PUTPROPS GETF DMACRO (DEFMACRO (PLACE INDICATOR &OPTIONAL DEFAULT) (COND (DEFAULT (QUOTE IGNOREMACRO) ) (T (LIST (QUOTE LISTGET) PLACE INDICATOR))))) (PUTPROPS SYMBOL-PLIST DMACRO (= . GETPROPLIST)) (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)) M@Hg 1@ A!H@ H@ H@ HigHg b(106Q CHECK-TYPE-FAIL 67Q COPY 53Q SETF-SYMBOL-FUNCTION 50Q SYMBOL-FUNCTION 42Q SET 37Q SYMBOL-VALUE 24Q MAKE-SYMBOL 21Q SYMBOL-NAME 12Q \INSTANCE-P) (103Q SYMBOL 77Q SYM 7 LITATOM) () CL:GENSYM D1 (L (0 X) F 2 *GENSYM-COUNTER* F 3 *GENSYM-PREFIX*) X@Ho$H H3 igHo bڹjI@d @c3 @cgSR Rkc(117Q CL:MAKE-SYMBOL 114Q CONCATENATE 111Q MKSTRING 63Q CL:STRINGP 42Q CHECK-TYPE-FAIL 17Q CL:STRINGP) (104Q SIMPLE-STRING 32Q X) ( 37Q (OR NULL STRING (INTEGER 0 CL:*)) 10Q (NIL)) 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* F 10Q COUNTER) mekHokaQlHWlaI[ (J\g ,jgIW NJ $NJ igKg YigLg ZMk԰(143Q CHECK-TYPE-FAIL 125Q CHECK-TYPE-FAIL 111Q CL:INTERN 102Q FIND-SYMBOL 73Q CONCATENATE 70Q MKSTRING 54Q \INSTANCE-P 42Q CL:STRINGP) (140Q PACKAGE 134Q PACKAGE 122Q STRING 116Q PREFIX 62Q SIMPLE-STRING 51Q PACKAGE) ( 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)) STOP