(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "29-Oct-93 14:39:56" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLDOC.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 10:41:09" "{Pele:mv:envos}Sources>CLTL2>CMLDOC.;2" 3493 previous date%: "14-Apr-92 20:18:56" "{Pele:mv:envos}Sources>CLTL2>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 A5011 1 A5013 0 A5012)) "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) WBHo ²S²0@!A ¹BºHIJ igHoh b°¿@A ¸BH (84 PUTHASH 76 HASH-TABLE-FOR-DOC-TYPE 61 CHECK-TYPE-FAIL 41 SET-DOCUMENTATIONA0001 30 HASH-TABLE-FOR-DOC-TYPE 14 TYPEP) (48 NEW-STRING) ( 54 (OR (EQL NIL) STRING) 9 (OR (EQL NIL) STRING)) (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 1991 1992 1993)) NIL