(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "30-Mar-92 14:30:31"  |{DSK}local>lde>lispcore>sources>PACKAGE-CONVERSION-TABLE.;12| 9666 |changes| |to:| (VARIABLES LITATOM-PACKAGE-CONVERSION-TABLE) |previous| |date:| "27-Mar-92 13:20:41" |{DSK}local>lde>lispcore>sources>PACKAGE-CONVERSION-TABLE.;11|) ; Copyright (c) 1986, 1988, 1990, 1991, 1992 by Venue & Xerox Corporation. All rights reserved. (PRETTYCOMPRINT PACKAGE-CONVERSION-TABLECOMS) (RPAQQ PACKAGE-CONVERSION-TABLECOMS ( (* |;;;| "Set up the LITATOM-PACKAGE-CONVERSION-TABLE for use by the INIT.") (VARIABLES LITATOM-PACKAGE-CONVERSION-TABLE) (* |;;| "Arrange to use the correct compiler.") (PROP FILETYPE PACKAGE-CONVERSION-TABLE))) (* |;;;| "Set up the LITATOM-PACKAGE-CONVERSION-TABLE for use by the INIT.") (LISP:DEFVAR LITATOM-PACKAGE-CONVERSION-TABLE (* |;;| "NOTE! This list is defined BOTH in PACKAGE-STARTUP and the file PACKAGE-CONVERSION-TABLE. PACKAGE-CONVERSION-TABLE is loaded early in the init to help TYPE-VARIABLE-FROM-TYPE-NAME do the right thing when packages are off, so that copy of the table is the dominant one. If you're thinking of changing this table, STOP right now and load PACKAGE-CONVERSION-TABLE so the change will show up in the init - JRB") (* |;;| "And to answer the obvious question: No, we can't put a FILES reference in either of these files. It would have to be a \"load the other one only when the source for this one is being loaded\" which doesn't exist.") '(("CL::" NIL "COMMON-LISP" :INTERNAL) (* |;;| "Minor incantation below which facilitates the sharing of symbols bewtween the LISP and COMMON-LISP packages.") (* |;;| "Note the doubled \"LISP:\" and \"CL:\" clauses. NAMESTRING-CONVERSION-CLAUSE matches the first string against the front of the atom's pname, then searches the list of strings for exceptions. The first \"CL:\" clause causes any atom that isn't in CL only to be homed in CL and shared in LISP; the second clause catches the exceptions that fall through and homes them in LISP only. Ditto the two \"LISP\" clauses. Ditto^2 the two XCL clauses. Many of the XCL entries will be unnecessary as files get remade with the new package environment") (* |;;| "The CL: exceptions should be the same as the NEWCLSYMS list (except for the CL: prefixes); the LISP: exceptions should cover the OLDCLSYMS and SPLITCLSYMS lists similarly.") ("CL:" ("CL:REAL" "CL:BASE-CHARACTER" "CL:EXTENDED-CHARACTER" "CL:READTABLE-CASE" "CL:SIMPLE-STRING" "CL:BASE-STRING" "CL:SIMPLE-BASE-STRING" "CL:BROADCAST-STREAM" "CL:CONCATENATED-STREAM" "CL:ECHO-STREAM" "CL:SYNONYM-STREAM" "CL:STRING-STREAM" "CL:FILE-STREAM" "CL:TWO-WAY-STREAM" "CL:UPGRADED-ARRAY-ELEMENT-TYPE" "CL:UPGRADED-COMPLEX-PART-TYPE" "CL:LOAD-TIME-EVAL" "CL:REALP" "CL:FDEFINITION" "CL:NTH-VALUE" "CL:DESTRUCTURING-BIND" "CL:DEFINE-COMPILER-MACRO" "CL:COMPILER-MACRO-FUNCTION" "CL:COMPILER-MACROEXPAND" "CL:COMPILER-MACROEXPAND-1" "CL:VARIABLE-INFORMATION" "CL:FUNCTION-INFORMATION" "CL:DECLARATION-INFORMATION" "CL:AUGMENT-ENVIRONMENT" "CL:DEFINE-DECLARATION" "CL:PARSE-MACRO" "CL:ENCLOSE" "CL:DECLAIM" "CL:DYNAMIC-EXTENT" "CL:*GENSYM-COUNTER*" "CL:WITH-PACKAGE-ITERATOR" "CL:LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT" "CL:LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" "CL:LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT" "CL:LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" "CL:LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" "CL:LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" "CL:LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" "CL:LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" "CL:COMPLEMENT" "CL:MAP-INTO" "CL:WITH-HASH-TABLE-ITERATOR" "CL:HASH-TABLE-REHASH-SIZE" "CL:HASH-TABLE-REHASH-THRESHOLD" "CL:HASH-TABLE-SIZE" "CL:HASH-TABLE-TEST" "CL:ROW-MAJOR-AREF" "CL:OPEN-STREAM-P" "CL:BROADCAST-STREAM-STREAMS" "CL:CONCATENATED-STREAM-STREAMS" "CL:ECHO-STREAM-INPUT-STREAM" "CL:ECHO-STREAM-OUTPUT-STREAM" "CL:SYNONYM-STREAM-SYMBOL" "CL:TWO-WAY-STREAM-INPUT-STREAM" "CL:TWO-WAY-STREAM-OUTPUT-STREAM" "CL:INTERACTIVE-STREAM-P" "CL:STREAM-EXTERNAL-FORMAT" "CL:*READ-EVAL*" "CL:READTABLE-CASE" "CL:*PRINT-READABLY*" "CL:WITH-STANDARD-IO-SYNTAX" "CL:PRINT-UNREADABLE-OBJECT" "CL:WILD-PATHNAME-P" "CL:PATHNAME-MATCH-P" "CL:TRANSLATE-PATHNAME" "CL:LOGICAL-PATHNAME" "CL:TRANSLATE-LOGICAL-PATHNAME" "CL:LOGICAL-PATHNAME-TRANSLATIONS" "CL:LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "CL:COMPILE-FILE-PATHNAME" "CL:FILE-STRING-LENGTH" "CL:*LOAD-PRINT*" "CL:*LOAD-PATHNAME*" "CL:*LOAD-TRUENAME*" "CL:MAKE-LOAD-FORM" "CL:MAKE-LOAD-FORM-SAVING-SLOTS" "CL:*COMPILE-VERBOSE" "CL:*COMPILE-PRINT*" "CL:*COMPILE-FILE-PATHNAME*" "CL:*COMPILE-FILE-TRUENAME*" "CL:LOAD-TIME-VALUE" "CL:FUNCTION-LAMBDA-EXPRESSION" "CL:WITH-COMPILATION-UNIT" "CL:IN-PACKAGE" "CL:LOCALLY") ("COMMON-LISP" "LISP") :EXTERNAL) ("CL:" NIL "COMMON-LISP" :EXTERNAL) ("LISP::" NIL "LISP" :INTERNAL) ("LISP:" ("LISP:COMMON" "LISP:COMMONP" "LISP:STRING-CHAR" "LISP:STRING-CHAR-P" "LISP:INT-CHAR" "LISP:COMPILER-LET" "LISP:CHAR-BIT" "LISP:SET-CHAR-BIT" "LISP:*MODULES*" "LISP:PROVIDE" "LISP:REQUIRE" "LISP:CHAR-FONT-LIMIT" "LISP:CHAR-BITS-LIMIT" "LISP:CHAR-BITS" "LISP:CHAR-FONT" "LISP:MAKE-CHAR" "LISP:CHAR-CONTROL-BIT" "LISP:CHAR-META-BIT" "LISP:CHAR-SUPER-BIT" "LISP:CHAR-HYPER-BIT" "LISP:*BREAK-ON-WARNINGS*" "LISP:LOCALLY" "LISP:IN-PACKAGE") ("COMMON-LISP" "LISP") :EXTERNAL) ("LISP:" NIL "LISP" :EXTERNAL) (":" NIL "KEYWORD" :EXTERNAL) ("CONDITIONS::" NIL "CONDITIONS" :INTERNAL) ("CONDITIONS:" ("CONDITIONS:*BREAK-ON-SIGNALS*" "CONDITIONS:COMPUTE-RESTARTS" "CONDITIONS:CONTINUE" "CONDITIONS:DIVISION-BY-ZERO" "CONDITIONS:FILE-ERROR" "CONDITIONS:FILE-ERROR-PATHNAME" "CONDITIONS:FIND-RESTART" "CONDITIONS:FLOATING-POINT-OVERFLOW" "CONDITIONS:FLOATING-POINT-UNDERFLOW" "CONDITIONS:INVOKE-DEBUGGER" "CONDITIONS:INVOKE-RESTART" "CONDITIONS:INVOKE-RESTART-INTERACTIVELY" "CONDITIONS:MUFFLE-WARNING" "CONDITIONS:PROGRAM-ERROR" "CONDITIONS:RESTART" "CONDITIONS:RESTART-BIND" "CONDITIONS:RESTART-CASE" "CONDITIONS:TYPE-ERROR-DATUM" "CONDITIONS:UNBOUND-SLOT" "CONDITIONS:WITH-CONDITION-RESTARTS" "CONDITIONS:WITH-SIMPLE-RESTART") "CONDITIONS" :EXTERNAL) ("CONDITIONS:" NIL ("COMMON-LISP" "CONDITIONS") :EXTERNAL) ("XCL::" NIL "XCL" :INTERNAL) (* |;;| "Similar trick here as for COMMON-LISP vs. LISP above") ("XCL:" ("XCL:ABORT" "XCL:ARITHMETIC-ERROR" "XCL:BROADCAST-STREAM-STREAMS" "XCL:CELL-ERROR" "XCL:CELL-ERROR-NAME" "XCL:CONCATENATED-STREAM-STREAMS" "XCL:CONDITION" "XCL:CONTROL-ERROR" "XCL:DEFINE-CONDITION" "XCL:DEFPACKAGE" "XCL:DELETE-PACKAGE" "XCL:DESTRUCTURING-BIND" "XCL:DIVISION-BY-ZERO" "XCL:ECHO-STREAM-INPUT-STREAM" "XCL:ECHO-STREAM-OUTPUT-STREAM" "XCL:END-OF-FILE" "XCL:FILE-ERROR" "XCL:FLOATING-POINT-OVERFLOW" "XCL:FLOATING-POINT-UNDERFLOW" "XCL:HANDLER-BIND" "XCL:IGNORE-ERRORS" "XCL:MAKE-CONDITION" "XCL:MAKE-VECTOR" "XCL:OPEN-STREAM-P" "XCL:PACKAGE-ERROR" "XCL:PROGRAM-ERROR" "XCL:ROW-MAJOR-AREF" "XCL:SERIOUS-CONDITION" "XCL:SIGNAL" "XCL:SIMPLE-CONDITION" "XCL:SIMPLE-CONDITION-FORMAT-ARGUMENTS" "XCL:SIMPLE-CONDITION-FORMAT-STRING" "XCL:SIMPLE-ERROR" "XCL:SIMPLE-STRING" "XCL:SIMPLE-TYPE-ERROR" "XCL:SIMPLE-WARNING" "XCL:STORAGE-CONDITION" "XCL:STORE-VALUE" "XCL:STREAM-ERROR" "XCL:STREAM-ERROR-STREAM" "XCL:STRING-STREAM-P" "XCL:SYNONYM-STREAM-SYMBOL" "XCL:TWO-WAY-STREAM-INPUT-STREAM" "XCL:TWO-WAY-STREAM-OUTPUT-STREAM" "XCL:TYPE-ERROR" "XCL:UNBOUND-VARIABLE" "XCL:UNDEFINED-FUNCTION" "XCL:USE-VALUE" "XCL:WARNING") "XCL" :EXTERNAL) ("XCL:" NIL ("COMMON-LISP" "XCL") :EXTERNAL) ("SI::" NIL "SI" :INTERNAL) ("SI:" NIL "SI" :EXTERNAL) ("COMPILER::" NIL "COMPILER" :INTERNAL) ("COMPILER:" NIL "COMPILER" :EXTERNAL) ("FASL::" NIL "FASL" :INTERNAL) ("FASL:" NIL "FASL" :EXTERNAL))) (* |;;| "Arrange to use the correct compiler.") (PUTPROPS PACKAGE-CONVERSION-TABLE FILETYPE LISP:COMPILE-FILE) (PUTPROPS PACKAGE-CONVERSION-TABLE COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990 1991 1992)) (DECLARE\: DONTCOPY (FILEMAP (NIL))) STOP