(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 09:59:44" ("compiled on " {DSK}sources>CMLDOC.;1) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 13:06:35" {DSK}local>lde>lispcore>sources>CMLDOC.;2 3285 changes to%: ( VARS CMLDOCCOMS) previous date%: "19-Mar-87 12:29:50" {DSK}local>lde>lispcore>sources>CMLDOC.;1) (RPAQQ CMLDOCCOMS ((* ;;; "Documentation strings") (VARIABLES *DOCUMENTATION-HASH-TABLE*) (FUNCTIONS CL:DOCUMENTATION HASH-TABLE-FOR-DOC-TYPE SET-DOCUMENTATION) (SETFS CL:DOCUMENTATION) (* ;; "Use the proper compiler") (PROP FILETYPE CMLDOC))) (CL:PROCLAIM (QUOTE (GLOBAL *DOCUMENTATION-HASH-TABLE*))) (OR (BOUNDP (QUOTE *DOCUMENTATION-HASH-TABLE*)) (CL:SETQ *DOCUMENTATION-HASH-TABLE* (LET ((CL::HT ( CL:MAKE-HASH-TABLE :TEST (QUOTE EQ) :SIZE 10 :REHASH-SIZE 5))) (MAPC (QUOTE ((TYPES TYPE) (SETFS CL:SETF ) (STRUCTURES CL:STRUCTURE RECORD RECORDS) (FUNCTIONS CL:FUNCTION FN FNS) (VARIABLES CL:VARIABLE VAR VARS))) (FUNCTION (LAMBDA (TYPE-LIST) (LET ((TABLE (CL:MAKE-HASH-TABLE :TEST (QUOTE CL:EQUAL) :SIZE 50 :REHASH-SIZE 50))) (MAPC TYPE-LIST (FUNCTION (LAMBDA (TYPE) (CL::PUTHASH TYPE CL::HT TABLE)))))))) CL::HT))) CL:DOCUMENTATION :D8 (L (1 DOC-TYPE 0 NAME)) @A (11 GETHASH 6 HASH-TABLE-FOR-DOC-TYPE) NIL () HASH-TABLE-FOR-DOC-TYPE :D8 (L (0 DOC-TYPE) F 1 FILEPKGFLG) Y@` µLQ²@g b` µ0@`¸gggl2gl2 H(86 PUTHASH 80 CL:MAKE-HASH-TABLE 38 GETHASH 26 GETFILEPKGTYPE 10 GETHASH) (72 :REHASH-SIZE 65 :SIZE 60 CL:EQUAL 55 :TEST 49 *DOCUMENTATION-HASH-TABLE* 33 *DOCUMENTATION-HASH-TABLE* 21 TYPE 5 *DOCUMENTATION-HASH-TABLE*) () SET-DOCUMENTATIONA0001 :D8 (L (2 A1412 1 A1414 0 A1413)) "g@A@A h @BA(31 PUTHASH 23 UNDOSAVE 13 GETHASH) (4 SET-DOCUMENTATIONA0001) () SET-DOCUMENTATION :D8 (L (2 NEW-STRING 1 DOC-TYPE 0 NAME) F 3 LISPXHIST) -S²@!A ºB¹HJI@A ¸BH(42 PUTHASH 34 HASH-TABLE-FOR-DOC-TYPE 23 SET-DOCUMENTATIONA0001 12 HASH-TABLE-FOR-DOC-TYPE) NIL () (CL::SET-SETF-INVERSE (QUOTE CL:DOCUMENTATION) (QUOTE SET-DOCUMENTATION)) (PUTPROPS CMLDOC FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLDOC COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990)) NIL