(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP") (FILECREATED "27-Oct-86 15:03:38" ("compiled on " {ERIS}SOURCES>LLSYMBOL.;10) "21-Oct-86 04:13:01" "COMPILE-FILEd" in "Xerox Lisp 21-Oct-86 ..." dated "21-Oct-86 04:48:43") (FILECREATED "27-Oct-86 15:03:01" {ERIS}SOURCES>LLSYMBOL.;10 11400 changes to%: (FUNCTIONS CL:FMAKUNBOUND CL:SYMBOL-FUNCTION UNDOABLY-SETF-SYMBOL-FUNCTION) (VARS LLSYMBOLCOMS) previous date%: "26-Oct-86 00:03:57" {ERIS}SOURCES>LLSYMBOL.;9) (RPAQQ LLSYMBOLCOMS ((* ;; "Symbol functions.") (* ;; "SET , BOUNDP and REMPROP are the same as and shared with 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) (ADDVARS (LISPXFNS (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* ((A0341 (QUOTE CL:MAKUNBOUND)) (A0342 (QUOTE CL:FUNCTION)) (A0343 "Make a symbol unbound.")) ( PROGN (COND ((CL:FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A0341 A0342 A0343))) A0343)) 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* ((A0350 (QUOTE GET)) (A0351 (QUOTE CL:FUNCTION)) (A0352 "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 A0350 A0351 A0352))) A0352) ) 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* ((A0354 (QUOTE CL:GETF)) (A0355 (QUOTE CL:FUNCTION)) (A0356 "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 A0354 A0355 A0356))) A0356) ) 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* ((A0358 (QUOTE CL:GET-PROPERTIES)) (A0359 (QUOTE CL:FUNCTION)) (A0360 "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 A0358 A0359 A0360))) A0360) ) (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 SPECIAL-FORM 7 MACRO-FN) () CL:SYMBOL-FUNCTION D1 (L (0 CL:SYMBOL)) .@ Hµ$@ X•gH@ X•gHgg@ (43 CL:ERROR 25 CL:SPECIAL-FORM-P 13 CL:MACRO-FUNCTION 3 GETD) (39 :NAME 36 UNDEFINED-FUNCTION 30 :SPECIAL-FORM 18 :MACRO) () 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 A0387 0 A0386) F 0 A0389) P@Ah A@ (14 SETF-MACRO-FUNCTION 9 UNDOSAVE) NIL () UNDOABLY-SETF-SYMBOL-FUNCTIONA0002 D1 (L (2 A0391 1 A0390 0 A0393) F 0 A0394) P@ABh AB@ (17 PUTPROP 11 UNDOSAVE) NIL () UNDOABLY-SETF-SYMBOL-FUNCTION D1 (L (1 CL::DEFINITION 0 CL:SYMBOL) P 3 A0394 P 2 A0389 F 4 LISPXHIST) }T¥@A Ad²adgð²%¿@A¹gZH Hh HI Agð´?@A¹g[HÁÉg'Hgh HgI Alð´ @A i (122 /PUTD 118 GETD 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) () (ADDTOVAR LISPXFNS (SETF-SYMBOL-FUNCTION . UNDOABLY-SETF-SYMBOL-FUNCTION)) (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