(FILECREATED "14-May-86 12:18:51" ("compiled on " . {ERIS}LIBRARY>CMLDOC.;4) "13-May-86 21:04:33" "COMPILE.FILEd" in "Xerox Lisp 14-May-86 ..." dated "14-May-86 09:26:15") (FILECREATED "14-May-86 12:18:41" {ERIS}LIBRARY>CMLDOC.;4 1866 changes to: (VARS CMLDOCCOMS) (PROPS (CMLDOC FILETYPE)) (SETFS DOCUMENTATION) previous date: "28-Apr-86 17:35:12" {ERIS}LIBRARY>CMLDOC.;2) (RPAQQ CMLDOCCOMS ((FNS DOCUMENTATION PROP-NAME-FROM-DOC-TYPE SET-DOCUMENTATION) (SETFS DOCUMENTATION) (PROP FILETYPE CMLDOC))) DOCUMENTATION D1 (I 1 DOC-TYPE I 0 SYMBOL) @ÁÉA '(10Q PROP-NAME-FROM-DOC-TYPE) NIL () PROP-NAME-FROM-DOC-TYPE D1 (I 0 DOC-TYPE) go@ (20Q MAKE-SYMBOL 15Q CONCATENATE 12Q SYMBOL-NAME) (2 STRING) ( 6 "DOCUMENTATION-STRING-") SET-DOCUMENTATION D1 (P 2 A0036 P 1 A0034 P 0 A0033 I 2 NEW-STRING I 1 DOC-TYPE I 0 SYMBOL) @A BºHIJ (22Q PUTPROP 7 PROP-NAME-FROM-DOC-TYPE) NIL () (PUT (QUOTE DOCUMENTATION) (QUOTE SETF-INVERSE) (QUOTE SET-DOCUMENTATION)) (PUTPROPS CMLDOC FILETYPE COMPILE-FILE) (PUTPROPS CMLDOC COPYRIGHT ("Xerox Corporation" 1986)) STOP