(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "25-Jan-98 17:11:53" ("compiled on " IL:|{DSK}sources>LLSYMBOL.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "11-Jun-90 17:56:50" IL:|{PELE:MV:ENVOS}SOURCES>LLSYMBOL.;5| 9443 IL:|changes| IL:|to:| (IL:VARS IL:LLSYMBOLCOMS) IL:|previous| IL:|date:| " 4-Jun-90 15:10:38" IL:|{PELE:MV:ENVOS}SOURCES>LLSYMBOL.;4|) (IL:RPAQQ IL:LLSYMBOLCOMS ((IL:* IL:|;;| "Symbol functions.") (IL:* IL:|;;| "SET , BOUNDP and REMPROP are the same as and shared with Interlisp-D") (IL:* IL:|;;| "Where is the optimizer for CL:GETF?") (IL:FUNCTIONS MAKUNBOUND SYMBOL-NAME SYMBOL-VALUE GET GETF GET-PROPERTIES) (IL:DECLARE\: IL:DOCOPY IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE (IL:P (IL:MOVD (QUOTE IL:GETPROPLIST) (QUOTE SYMBOL-PLIST)))) (IL:FUNCTIONS FBOUNDP FMAKUNBOUND SYMBOL-FUNCTION IL:SETF-SYMBOL-FUNCTION) (IL:COMS (IL:* IL:|;;| "GENSYM Code") (IL:VARIABLES *GENSYM-COUNTER* *GENSYM-PREFIX* *GENTEMP-COUNTER*) (IL:FUNCTIONS GENSYM GENTEMP)) (IL:FUNCTIONS COPY-SYMBOL IL:MAKE-KEYWORD KEYWORDP) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:LLSYMBOL))) MAKUNBOUND :D8 (IL:L (0 SYMBOL)) /@d @h g@h @g @(43 SET 31 PROCLAIM 16 XCL::SET-CONSTANTP 6 CONSTANTP) (38 IL:NOBIND 22 SPECIAL) () SYMBOL-NAME :D8 (IL:L (0 SYMBOL)) K@d3@)@gh@ jhih@k gggg@ (72 ERROR 44 IL:%MAKE-ONED-ARRAY) (65 :CULPRIT 60 SYMBOL 55 :EXPECTED-TYPE 50 CONDITIONS:SIMPLE-TYPE-ERROR 19 STRING-CHAR) () SYMBOL-VALUE :D8 (IL:L (0 SYMBOL)) &@d3@@,gggg@ (35 ERROR) (28 :CULPRIT 23 SYMBOL 18 :EXPECTED-TYPE 13 CONDITIONS:SIMPLE-TYPE-ERROR) () GET :D8 (IL:L (2 DEFAULT 1 INDICATOR 0 SYMBOL)) @AB (11 GETF) NIL () GETF :D8 (IL:L (2 DEFAULT 1 INDICATOR 0 PLACE)) +@HBHdAdo@ HX(31 ERROR) NIL ( 25 "Malformed property list: ~s") GET-PROPERTIES :D8 (IL:L (1 INDICATOR-LIST 0 PLACE)) 6@Hhdd$HdAdo@ HXHH$(36 ERROR) NIL ( 30 "Malformed p-list: ~s") (IL:MOVD (QUOTE IL:GETPROPLIST) (QUOTE SYMBOL-PLIST)) FBOUNDP :D8 (IL:L (0 FN)) @d3@@ @ @ i(26 SPECIAL-FORM-P 19 MACRO-FUNCTION 12 IL:ARGTYPE) NIL () FMAKUNBOUND :D8 (IL:L (0 SYMBOL)) 2@h @h @g @g @g @(46 REMPROP 35 REMPROP 24 REMPROP 13 IL:SETF-MACRO-FUNCTION 6 IL:SETF-SYMBOL-FUNCTION) (41 IL:EXPR 30 IL:CODE 19 IL:SPECIAL-FORM) () SYMBOL-FUNCTION :D8 (IL:L (0 SYMBOL)) >@ H2@ XgH@ XgHgg@ (59 ERROR 33 SPECIAL-FORM-P 17 MACRO-FUNCTION 5 IL:GETD) (53 :NAME 48 XCL:UNDEFINED-FUNCTION 40 :SPECIAL-FORM 24 :MACRO) () IL:SETF-SYMBOL-FUNCTION :D8 (IL:L (1 DEFINITION 0 SYMBOL)) n@i Ad-dg@A 0g @gA d3@A@A @Ai AdAdg@g A(106 REMPROP 77 IL:PUTD 68 IL:GETD 52 IL:PUTPROP 29 IL:SETF-MACRO-FUNCTION 6 IL:VIRGINFN) (101 IL:MACRO-FN 92 :MACRO 45 IL:SPECIAL-FORM 36 :SPECIAL-FORM 18 :MACRO) () (PROCLAIM (QUOTE (SPECIAL *GENSYM-COUNTER*))) (OR (BOUNDP (QUOTE *GENSYM-COUNTER*)) (SETQ *GENSYM-COUNTER* 0)) (PROCLAIM (QUOTE (SPECIAL *GENSYM-PREFIX*))) (OR (BOUNDP (QUOTE *GENSYM-PREFIX*)) (SETQ *GENSYM-PREFIX* "G")) (PROCLAIM (QUOTE (SPECIAL *GENTEMP-COUNTER*))) (OR (BOUNDP (QUOTE *GENTEMP-COUNTER*)) (SETQ *GENTEMP-COUNTER* 0)) GENSYM :D8 (IL:L (0 IL:|-args-|) IL:F 4 *GENSYM-COUNTER* IL:F 5 *GENSYM-PREFIX*) ^e0kHhikaI-J[d Jc 3 JcgKoh gUT Tkc(85 MAKE-SYMBOL 80 CONCATENATE 75 IL:MKSTRING 62 IL:CHECK-TYPE-FAIL 28 STRINGP) (68 STRING 49 X) ( 55 (OR STRING INTEGER)) GENTEMP :D8 (IL:L (0 IL:|-args-|) IL:F 5 *GENTEMP-COUNTER* IL:F 6 *PACKAGE*) MekHoka1lHVlaUgIK \J Kkc LJ Kk԰(69 INTERN 55 FIND-SYMBOL 48 CONCATENATE 43 IL:MKSTRING) (36 STRING) ( 12 "T") COPY-SYMBOL :D8 (IL:L (1 COPY-PROPS 0 SYM)) M@ A;@d H@ @ H@ H@ H(71 COPY-LIST 57 IL:SETF-SYMBOL-FUNCTION 52 SYMBOL-FUNCTION 44 FBOUNDP 37 SET 32 SYMBOL-VALUE 23 BOUNDP 10 MAKE-SYMBOL 5 SYMBOL-NAME) NIL () IL:MAKE-KEYWORD :D8 (IL:L (0 SYMBOL)) @ ` (15 INTERN 5 SYMBOL-NAME) (10 IL:*KEYWORD-PACKAGE*) () KEYWORDP :D8 (IL:L (0 OBJECT)) @d3@@ `(12 SYMBOL-PACKAGE) (17 IL:*KEYWORD-PACKAGE*) () (IL:PUTPROPS IL:LLSYMBOL IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:LLSYMBOL IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE "LISP")) (IL:PUTPROPS IL:LLSYMBOL IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990)) NIL