(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED " 9-Nov-93 00:43:35" ("compiled on " IL:|{DSK}export>lispcore>sources>CLTL2>LLSYMBOL.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" IL:|in| "Medley 19-Feb-93 ..." IL:|dated| "19-Feb-93 18:20:42") (IL:FILECREATED " 4-Jan-92 12:51:42" IL:|{DSK}local>lde>lispcore>sources>LLSYMBOL.;2| 9415 IL:|changes| IL:|to:| (IL:FUNCTIONS FBOUNDP FDEFINITION SET-FDEFINITION FMAKUNBOUND) (IL:VARS IL:LLSYMBOLCOMS) (XCL:OPTIMIZERS FDEFINITION) (IL:SETFS FDEFINITION) IL:|previous| IL:|date:| "11-Jun-90 17:56:50" IL:|{DSK}local>lde>lispcore>sources>LLSYMBOL.;1|) (IL:RPAQQ IL:LLSYMBOLCOMS ((IL:* IL:|;;| "Symbol functions.") (IL:* IL:|;;| "SET , BOUNDP and REMPROP are the same as and shared with Interlisp-D") (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 FDEFINITION IL:SETF-SYMBOL-FUNCTION SET-FDEFINITION) (XCL:OPTIMIZERS FDEFINITION) (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)) O@dd3@@ =@ 5@d ,*@g @@d3@@g'i(31 SPECIAL-FORM-P 22 MACRO-FUNCTION 14 IL:ARGTYPE) (72 :SETF-DEFUN 43 SETF) () FMAKUNBOUND :D8 (IL:L (0 SYMBOL)) V@h @h @g @g @g @g'HHh @g @(82 REMPROP 70 IL:SETF-SYMBOL-FUNCTION 46 REMPROP 35 REMPROP 24 REMPROP 13 IL:SETF-MACRO-FUNCTION 6 IL:SETF-SYMBOL-FUNCTION) (77 :SETF-DEFUN 56 :SETF-DEFUN 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) () FDEFINITION :D8 (IL:L (0 FUNCTION-NAME)) ]@dAdg7d2dd3@)@g'gg@  d3@@ o@ (90 ERROR 78 SYMBOL-FUNCTION 66 SYMBOL-FUNCTION 60 ERROR) (54 :NAME 49 XCL:UNDEFINED-FUNCTION 41 :SETF-DEFUN 11 SETF) ( 84 "~s cannot name an FDEFINITION") 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) () SET-FDEFINITION :D8 (IL:L (1 NEWVALUE 0 FUNCTION-NAME)) J@d>dg4d/dd3@&@H HgI IA A A(70 IL:SETF-SYMBOL-FUNCTION 62 IL:SETF-SYMBOL-FUNCTION 54 IL:PUTPROP 41 XCL::DEFUN-SETF-NAME) (48 :SETF-DEFUN 11 SETF) () |optimize-FDEFINITION| :D8 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) *@H H d3@gHhg(19 EVAL 11 CONSTANTP) (39 COMPILER:PASS 29 SYMBOL-FUNCTION) () (IL:PUTPROP (QUOTE FDEFINITION) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE |optimize-FDEFINITION|) (GET (QUOTE FDEFINITION) (QUOTE COMPILER:OPTIMIZER-LIST)))) (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 1992)) NIL