(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "26-Oct-86 00:04:12" ("compiled on " {ERIS}SOURCES>LLSYMBOL.;9) "21-Oct-86 04:13:01" "COMPILE-FILEd" in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "26-Oct-86 00:03:57" {ERIS}SOURCES>LLSYMBOL.;9 12068 changes to%: (FUNCTIONS CL:SYMBOL-FUNCTION UNDOABLY-SETF-SYMBOL-FUNCTION) (VARS LLSYMBOLCOMS) previous date%: "25-Oct-86 23:07:46" {ERIS}SOURCES>LLSYMBOL.;8) (RPAQQ LLSYMBOLCOMS ((* ;; "Symbol functions.") (* ;; "SET BOUNDP and REMPROP are already in Interlisp-D") (FUNCTIONS CL:MAKUNBOUND CL:SYMBOL-NAME CL:SYMBOL-VALUE GET CL:GETF CL:GET-PROPERTIES) (P (MOVD (QUOTE GETPROPLIST) (QUOTE CL:SYMBOL-PLIST))) (FUNCTIONS CL:FBOUNDP CL:FMAKUNBOUND CL:SYMBOL-FUNCTION SETF-SYMBOL-FUNCTION UNDOABLY-SETF-SYMBOL-FUNCTION) (VARIABLES *GENSYM-COUNTER* *GENSYM-PREFIX*) (FUNCTIONS CL:COPY-SYMBOL CL:GENSYM MAKE-KEYWORD CL:GENTEMP CL:KEYWORDP) (PROP FILETYPE LLSYMBOL))) CL:MAKUNBOUND D1 (L (0 CL:SYMBOL) F 0 COMPVARMACROHASH) @g @hP @(12 PUTHASH 6 SET) (3 NOBIND) () (LET* ((A0090 (QUOTE CL:MAKUNBOUND)) (A0091 (QUOTE CL:FUNCTION)) (A0092 "Make a symbol unbound.")) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0090 A0091 A0092))) A0092)) CL:SYMBOL-NAME D1 (L (0 CL:SYMBOL)) @HÕ@ igHg b°ã(25 CHECK-TYPE-FAIL 13 MKSTRING) (22 CL:SYMBOL 18 CL:SYMBOL 7 LITATOM) () CL:SYMBOL-VALUE D1 (L (0 CL:SYMBOL)) @HÓ@,igHg b°å(23 CHECK-TYPE-FAIL) (20 CL:SYMBOL 16 CL:SYMBOL 7 LITATOM) () GET D1 (L (2 DEFAULT 1 INDICATOR 0 CL:SYMBOL)) @ÁÉAB (9 CL:GETF) NIL () (LET* ((A0099 (QUOTE GET)) (A0100 (QUOTE CL:FUNCTION)) (A0101 "Look on the property list of SYMBOL for the specified INDICATOR. If this is found, return the associated value, else return DEFAULT." )) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0099 A0100 A0101))) A0101) ) CL:GETF D1 (L (2 DEFAULT 1 INDICATOR 0 PLACE)) -@HµBlð²@o ¿HX°åHdAð²ö(26 ERROR 23 CONCAT) NIL ( 20 " is a malformed property list.") (LET* ((A0103 (QUOTE CL:GETF)) (A0104 (QUOTE CL:FUNCTION)) (A0105 "Searches the property list stored in Place for an indicator EQ to Indicator. If one is found, the corresponding value is returned, else the Default is returned." )) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0103 A0104 A0105))) A0105) ) CL:GET-PROPERTIES D1 (L (1 INDICATOR-LIST 0 PLACE)) ;@Hd¥dd lð²@o ¿HX°áHdA ²ô¿HHH (56 CL:VALUES 44 MEMQ 30 ERROR 27 CONCAT 11 CL:VALUES) NIL ( 24 " is a malformed proprty list.") (LET* ((A0107 (QUOTE CL:GET-PROPERTIES)) (A0108 (QUOTE CL:FUNCTION)) (A0109 "Like GETF, except that Indicator-List is a list of indicators which will be looked for in the property list stored in Place. Three values are returned, see manual for details." )) (PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0107 A0108 A0109))) A0109) ) (MOVD (QUOTE GETPROPLIST) (QUOTE CL:SYMBOL-PLIST)) CL:FBOUNDP D1 (L (0 FN)) @lð´@ ª@ ¥@ ´i(20 CL:MACRO-FUNCTION 15 ARGTYPE 10 CL:SPECIAL-FORM-P) NIL () CL:FMAKUNBOUND D1 (L (0 CL:SYMBOL)) @ @g @g @(17 REMPROP 10 REMPROP 3 PUTD) (14 CL::SPECIAL-FORM 7 CL:MACRO-FUNCTION) () CL:SYMBOL-FUNCTION D1 (L (0 CL:SYMBOL)) .@ Hµ$@ X•gH@ X•gHgg@ (43 CL:ERROR 25 CL:MACRO-FUNCTION 13 CL:SPECIAL-FORM-P 3 GETD) (39 :NAME 36 UNDEFINED-FUNCTION 30 :MACRO 18 :SPECIAL-FORM) () SETF-SYMBOL-FUNCTION D1 (L (1 CL::DEFINITION 0 CL:SYMBOL)) DAd²0dgð˜¿@A Agð²@A¹HgI A@Ai lð²õ@A i (65 PUTD 61 GETD 49 PUTD 41 PUTPROP 18 SETF-MACRO-FUNCTION) (37 SPECIAL-FORM 23 :SPECIAL-FORM 9 :MACRO) () UNDOABLY-SETF-SYMBOL-FUNCTIONA0001 D1 (L (1 A0136 0 A0135) F 0 A0137) P@Ah A@ (14 SETF-MACRO-FUNCTION 9 UNDOSAVE) NIL () UNDOABLY-SETF-SYMBOL-FUNCTIONA0002 D1 (L (2 A0139 1 A0138 0 A0141) F 0 A0142) P@ABh AB@ (17 PUTPROP 11 UNDOSAVE) NIL () UNDOABLY-SETF-SYMBOL-FUNCTION D1 (L (1 CL::DEFINITION 0 CL:SYMBOL) P 3 A0142 P 2 A0137 F 4 LISPXHIST) „T¥@A Ad²hdgð²%¿@A¹gZH Hh HI Agð²0@A¹g[HÁÉg'Hgh HgI A@Ai lð²õ@A i (129 /PUTD 125 GETD 113 /PUTD 105 PUTPROP 96 UNDOSAVE 53 SETF-MACRO-FUNCTION 47 UNDOSAVE 39 CL:MACRO-FUNCTION 6 SETF-SYMBOL-FUNCTION) (101 SPECIAL-FORM 88 SPECIAL-FORM 83 SPECIAL-FORM 74 UNDOABLY-SETF-SYMBOL-FUNCTIONA0002 58 :SPECIAL-FORM 34 UNDOABLY-SETF-SYMBOL-FUNCTIONA0001 17 :MACRO) () (CL:PROCLAIM (QUOTE (CL:SPECIAL *GENSYM-COUNTER*))) (OR (BOUNDP (QUOTE *GENSYM-COUNTER*)) (SETQ *GENSYM-COUNTER* 0)) (CL:PROCLAIM (QUOTE (CL:SPECIAL *GENSYM-PREFIX*))) (OR (BOUNDP (QUOTE *GENSYM-PREFIX*)) (SETQ *GENSYM-PREFIX* "G")) CL:COPY-SYMBOL D1 (L (1 COPY-PROPS 0 SYM)) J@Hò1@ A²!H@ ¿H@ ¿HÁ@ÁÉ HigHg b°¹(67 CHECK-TYPE-FAIL 52 COPY 40 SETF-SYMBOL-FUNCTION 37 CL:SYMBOL-FUNCTION 31 SET 28 CL:SYMBOL-VALUE 17 CL:MAKE-SYMBOL 14 CL:SYMBOL-NAME) (64 CL:SYMBOL 60 SYM 7 LITATOM) () CL:GENSYM D1 (L (0 X) F 2 *GENSYM-COUNTER* F 3 *GENSYM-PREFIX*) <@HYµ° ”@c°I3 ´@cŠgHo ¿SR RkÔc¿(51 CL:MAKE-SYMBOL 48 CONCAT 45 MKSTRING 38 CHECK-TYPE-FAIL 12 CL:STRINGP) (30 X) ( 35 (OR NULL STRING INTEGER)) MAKE-KEYWORD D1 (L (0 CL:SYMBOL) F 0 *KEYWORD-PACKAGE*) @ P (7 CL:INTERN 3 CL:SYMBOL-NAME) NIL () CL:GENTEMP D1 (L (0 -args-) F 7 *PACKAGE*) eekHñ”okaQlHñ’W‚laºI[ò J\ò'j½IM ^J ³$NJ igKg Y°ÐigLg Z°ÉMkÔ°Ë(91 CHECK-TYPE-FAIL 77 CHECK-TYPE-FAIL 65 CL:INTERN 58 CL:FIND-SYMBOL 53 CONCAT 50 MKSTRING) (88 PACKAGE 84 PACKAGE 74 STRINGP 70 PREFIX 41 PACKAGE 34 STRINGP) ( 11 "T") CL:KEYWORDP D1 (L (0 OBJECT) F 0 *KEYWORD-PACKAGE*) @lð´@ Pð(10 CL:SYMBOL-PACKAGE) NIL () (PUTPROPS LLSYMBOL FILETYPE CL:COMPILE-FILE) (PUTPROPS LLSYMBOL COPYRIGHT ("Xerox Corporation" 1986)) NIL