(FILECREATED " 9-Oct-86 18:24:52" ("compiled on " {ERIS}SOURCES>LLSYMBOL.;2) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 9-Oct-86 18:21:37" {ERIS}SOURCES>LLSYMBOL.;2 7754 changes to: (FUNCTIONS SYMBOL-FUNCTION) previous date: " 3-Sep-86 16:24:17" {ERIS}SOURCES>LLSYMBOL.;1) (RPAQQ LLSYMBOLCOMS ((* ;; "Symbol functions.") (* ;; "SET BOUNDP and REMPROP are already in Interlisp-D") (FUNCTIONS MAKUNBOUND SYMBOL-NAME SYMBOL-VALUE GET GETF GET-PROPERTIES) (P (MOVD (QUOTE GETPROPLIST) (QUOTE SYMBOL-PLIST))) (FUNCTIONS FBOUNDP FMAKUNBOUND SYMBOL-FUNCTION SETF-SYMBOL-FUNCTION) (VARIABLES *GENSYM-COUNTER* *GENSYM-PREFIX*) ( FUNCTIONS CL:COPY-SYMBOL CL:GENSYM CL:MAKE-KEYWORD CL:GENTEMP CL:KEYWORDP) (PROP FILETYPE LLSYMBOL))) MAKUNBOUND D1 (L (0 SYMBOL)) @g @(6 SET) (3 NOBIND) () (LET* ((A1482 (QUOTE MAKUNBOUND)) (A1483 (QUOTE CL:FUNCTION)) (A1484 "Make a symbol unbound.")) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A1482 A1483 A1484))) A1484)) SYMBOL-NAME D1 (L (0 SYMBOL)) @H@ igHg b(31Q CHECK-TYPE-FAIL 15Q MKSTRING) (26Q SYMBOL 22Q SYMBOL 7 LITATOM) () SYMBOL-VALUE D1 (L (0 SYMBOL)) @H@,igHg b(27Q CHECK-TYPE-FAIL) (24Q SYMBOL 20Q SYMBOL 7 LITATOM) () GET D1 (L (2 DEFAULT 1 INDICATOR 0 SYMBOL)) @AB (11Q GETF) NIL () (LET* ((A1491 (QUOTE GET)) (A1492 (QUOTE CL:FUNCTION)) (A1493 "Look on the property list of SYMBOL for the specified INDICATOR. If this is found, return the associated value, else return DEFAULT." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A1491 A1492 A1493))) A1493)) GETF D1 (L (2 DEFAULT 1 INDICATOR 0 PLACE)) -@HBl@o HXHdA(32Q ERROR 27Q CONCAT) NIL ( 24Q " is a malformed property list.") (LET* ((A1495 (QUOTE GETF)) (A1496 (QUOTE CL:FUNCTION)) (A1497 "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 ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A1495 A1496 A1497))) A1497)) GET-PROPERTIES D1 (L (1 INDICATOR-LIST 0 PLACE)) B@Hddd l@o HXHAgg HHH (77Q VALUES 64Q CL:MEMBER 61Q SYMBOL-FUNCTION 36Q ERROR 33Q CONCAT 13Q VALUES) (56Q EQ 53Q :TEST) ( 30Q " is a malformed proprty list.") (LET* ((A1499 (QUOTE GET-PROPERTIES)) (A1500 (QUOTE CL:FUNCTION)) (A1501 "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 ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A1499 A1500 A1501))) A1501)) (MOVD (QUOTE GETPROPLIST) (QUOTE SYMBOL-PLIST)) FBOUNDP D1 (L (0 FN)) @l@ @ @ i(24Q MACRO-FUNCTION 17Q ARGTYPE 12Q SPECIAL-FORM-P) NIL () FMAKUNBOUND D1 (L (0 SYMBOL)) @ @(3 PUTD) NIL () SYMBOL-FUNCTION D1 (L (0 FN)) @ @ @ gg@ (33Q CL:ERROR 17Q GETD 11Q MACRO-FUNCTION 3 SPECIAL-FORM-P) (27Q :NAME 24Q UNDEFINED-FUNCTION) () SETF-SYMBOL-FUNCTION D1 (L (1 VAL 0 FN)) @Ad A AAdl i (35Q PUTD 31Q GETD 14Q EXPRP 5 CCODEP) NIL () (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")) CL:COPY-SYMBOL D1 (L (1 COPY-PROPS 0 SYM)) J@H1@ A!H@ H@ H@ HigHg b(103Q CHECK-TYPE-FAIL 64Q COPY 50Q SETF-SYMBOL-FUNCTION 45Q SYMBOL-FUNCTION 37Q SET 34Q SYMBOL-VALUE 21Q MAKE-SYMBOL 16Q SYMBOL-NAME) (100Q SYMBOL 74Q SYM 7 LITATOM) () CL:GENSYM D1 (L (0 X) F 2 *GENSYM-COUNTER* F 3 *GENSYM-PREFIX*) <@HY @cI3 @cgHo SR Rkc(63Q CL:MAKE-SYMBOL 60Q CONCAT 55Q MKSTRING 46Q CHECK-TYPE-FAIL 14Q CL:STRINGP) (36Q X) ( 43Q (OR NULL STRING INTEGER)) 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*) eekHokaQlHWlaI[ J\'jIM ^J $NJ igKg YigLg ZMk԰(133Q CHECK-TYPE-FAIL 115Q CHECK-TYPE-FAIL 101Q CL:INTERN 72Q FIND-SYMBOL 65Q CONCAT 62Q MKSTRING) (130Q PACKAGE 124Q PACKAGE 112Q STRINGP 106Q PREFIX 51Q PACKAGE 42Q STRINGP) ( 13Q "T") CL:KEYWORDP D1 (L (0 OBJECT) F 0 *KEYWORD-PACKAGE*) @l@ P(12Q SYMBOL-PACKAGE) NIL () (PUTPROPS LLSYMBOL FILETYPE COMPILE-FILE) (PUTPROPS LLSYMBOL COPYRIGHT ("Xerox Corporation" 1986)) NIL