(FILECREATED "30-May-86 03:55:37" ("compiled on " {ERIS}EVAL>CMLDOC.;5) "29-May-86 22:52:33" "COMPILE-FILEd" in "Xerox Lisp 19-May-86 ..." dated "19-May-86 09:04:47") (FILECREATED "29-May-86 23:23:52" {ERIS}EVAL>CMLDOC.;5 2196 changes to: (SETFS DOCUMENTATION ) previous date: "28-May-86 16:07:50" {ERIS}EVAL>CMLDOC.;2) (RPAQQ CMLDOCCOMS ((FNS DOCUMENTATION PROP-NAME-FROM-DOC-TYPE SET-DOCUMENTATION) (SETFS DOCUMENTATION) (PROP FILETYPE CMLDOC) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA SET-DOCUMENTATION PROP-NAME-FROM-DOC-TYPE))))) DOCUMENTATION D1 (L (0 -args-)) e@AºIÁÉJ '(22Q PROP-NAME-FROM-DOC-TYPE) NIL () PROP-NAME-FROM-DOC-TYPE D1 (L (0 -args-)) e@goI (30Q MAKE-SYMBOL 25Q CONCATENATE 22Q SYMBOL-NAME) (12Q STRING) ( 16Q "DOCUMENTATION-STRING-") SET-DOCUMENTATION D1 (L (0 -args-)) e@QAºB»I¼J ½K¾LMN (32Q PUTPROP 21Q PROP-NAME-FROM-DOC-TYPE) NIL () (REMPROP (QUOTE DOCUMENTATION) (QUOTE SETF-METHOD-EXPANDER)) (PUT (QUOTE DOCUMENTATION) (QUOTE SETF-INVERSE) (QUOTE SET-DOCUMENTATION)) (PUTPROPS CMLDOC FILETYPE COMPILE-FILE) (PUTPROPS CMLDOC COPYRIGHT ("Xerox Corporation" 1986)) STOP