(FILECREATED "29-May-86 23:23:52" {ERIS}<LISPCORE>EVAL>CMLDOC.;5
 2196   

      changes to:  (SETFS DOCUMENTATION)

      previous date: "28-May-86 16:07:50" {ERIS}<LISPCORE>EVAL>CMLDOC.;2)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT CMLDOCCOMS)

(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])
(DEFUN DOCUMENTATION
 (SYMBOL DOC-TYPE) (GET SYMBOL (PROP-NAME-FROM-DOC-TYPE DOC-TYPE)))

(DEFINEQ

(PROP-NAME-FROM-DOC-TYPE

  [CL:LAMBDA (DOC-TYPE)
                                      (* "Pavel" "28-Apr-86 17:34")

                                                             (* "Should be this:"

                                                             (INTERN (CONCATENATE

                                                             (QUOTE STRING) "DOCUMENTATION-STRING-"

                                                             (SYMBOL-NAME DOC-TYPE))

                                                             (FIND-PACKAGE (QUOTE LISP))) 

                                                             "but ``intern'' is not yet defined.")

    (MAKE-SYMBOL (CONCATENATE (QUOTE STRING)
                        "DOCUMENTATION-STRING-"
                        (SYMBOL-NAME DOC-TYPE])

(SET-DOCUMENTATION

  (CL:LAMBDA (SYMBOL DOC-TYPE NEW-STRING)
                    (* "Pavel" "28-Apr-86 17:15")

    (SETF (GET SYMBOL (PROP-NAME-FROM-DOC-TYPE
 DOC-TYPE))
          NEW-STRING)))
)
(DEFSETF DOCUMENTATION
 SET-DOCUMENTATION)


(PUTPROPS CMLDOC FILETYPE
 COMPILE-FILE)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 SET-DOCUMENTATION PROP-NAME-FROM-DOC-TYPE)
)
(PUTPROPS CMLDOC COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (802 1854 (PROP-NAME-FROM-DOC-TYPE 812 . 1643) (SET-DOCUMENTATION 1645 . 1852)))))
STOP