(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE (DEFPACKAGE "XCL" (USE)))
(IL:FILECREATED "22-Nov-93 16:28:36" ("compiled on " 
IL:{DSK}<king>export>lispcore>sources>CLTL2>XCL-PACKAGE.;1) "11-Nov-93 16:58:33" IL:bcompl'd IL:in 
"Medley 11-Nov-93 ..." IL:dated "11-Nov-93 17:07:44")
(IL:FILECREATED "31-Mar-92 09:32:35" IL:{DSK}<usr>local>lde>lispcore>sources>XCL-PACKAGE.;6 21638 
IL:changes IL:to%: (IL:VARS IL:XCL-PACKAGECOMS) IL:previous IL:date%: "17-Mar-92 22:08:22" 
IL:{DSK}<usr>local>lde>lispcore>sources>XCL-PACKAGE.;4)
(IL:PRETTYCOMPRINT IL:XCL-PACKAGECOMS)
(IL:RPAQQ IL:XCL-PACKAGECOMS ((IL:* IL:;;; "Setting up the XCL package.") (IL:FUNCTIONS 
CL::DEFECT-FROM-IL-TO-XCL CL::CHECK-ALL) (IL:VARIABLES CL::FUTURE-CITIZENS-OF-XCL) (IL:DECLARE%: 
IL:DONTEVAL@LOAD IL:DOCOPY (IL:P (IL:* IL:;; 
"New exports from XCL should go in the EXPORT clause here") (IL:* IL:;; 
"Symbols imported from COMMON-LISP are strings below") (DEFPACKAGE "XEROX-COMMON-LISP" (:USE "LISP" 
"CONDITIONS") (:NICKNAMES "XCL") (:PREFIX-NAME "XCL") (:IMPORT-FROM "COMMON-LISP" "DEFPACKAGE" 
"SIMPLE-WARNING" "TWO-WAY-STREAM-INPUT-STREAM" "SIMPLE-ERROR" "WARNING" "ECHO-STREAM-INPUT-STREAM" 
"SIMPLE-CONDITION" "STORAGE-CONDITION" "CONTROL-ERROR" "UNBOUND-VARIABLE" "STREAM-ERROR" 
"ROW-MAJOR-AREF" "SIMPLE-TYPE-ERROR" "ECHO-STREAM-OUTPUT-STREAM" "FLOATING-POINT-OVERFLOW" "SIGNAL" 
"OPEN-STREAM-P" "BROADCAST-STREAM-STREAMS" "PACKAGE-ERROR" "STRING-STREAM-P" "DESTRUCTURING-BIND" 
"END-OF-FILE" "FLOATING-POINT-UNDERFLOW" "ABORT" "SYNONYM-STREAM-P" "SYNONYM-STREAM-SYMBOL" 
"PROGRAM-ERROR" "CONCATENATED-STREAM-STREAMS" "TWO-WAY-STREAM-OUTPUT-STREAM" "TYPE-ERROR" 
"ARITHMETIC-ERROR" "CELL-ERROR" "FILE-ERROR" "SERIOUS-CONDITION" "DIVISION-BY-ZERO" 
"UNDEFINED-FUNCTION" "SIMPLE-STRING" "CONDITION" "DELETE-PACKAGE" "MAKE-VECTOR") (:IMPORT-FROM "LISP" 
"SIMPLE-STRING") (:EXPORT "*BREAK-ON-SIGNALS*" "*CURRENT-CONDITION*" "*DEBUGGER-PROMPT*" 
"*DEFAULT-PROFILE*" "*EVAL-FUNCTION*" "*EXEC-PROMPT*" "*LONG-SITE-NAME*" "*PRINT-STRUCTURE*" 
"*PROFILE*" "*SHORT-SITE-NAME*" "*TRACE-IO*" "*TRACE-LENGTH*" "*TRACE-LEVEL*" "*TRACE-VERBOSE*" 
"ADVISE-FUNCTION" "ADVISED-FUNCTIONS" "ARGLIST" "ARITHMETIC-ERROR" "ARITHMETIC-ERROR-OPERANDS" 
"ARITHMETIC-ERROR-OPERATION" "ARRAY-SPACE-FULL" "ASSERTION-FAILED" "ASSERTION-FAILED-FORMAT-ARGUMENTS"
 "ASSERTION-FAILED-FORMAT-STRING" "ATTEMPT-TO-CHANGE-CONSTANT" "ATTEMPT-TO-CHANGE-CONSTANT-NAME" 
"ATTEMPT-TO-RPLAC-NIL" "ATTEMPT-TO-RPLAC-NIL-NAME" "BAD-PROCEED-CASE" "BAD-PROCEED-CASE-NAME" 
"BROADCAST-STREAM-P" "BROADCAST-STREAM-STREAMS" "COLLECT" "COMPILE-DEFINER" "COMPILE-FORM" 
"COMPUTE-RESTARTS" "CONCATENATED-STREAM-P" "CONCATENATED-STREAM-STREAMS" "CONTINUE" 
"CONTROL-E-INTERRUPT" "CONTROL-E-INTERRUPT-FUNCTION" "COPY-PROFILE" "CREATE-TRACE-WINDOW" 
"DATA-TYPES-EXHAUSTED" "DEFADVICE" "DEFINE-FILE-ENVIRONMENT" "DEFINE-RECORD" "DEFINER" "DEFPROFILE" 
"DELETED-PACKAGE-P" "DEVICE-ERROR" "DEVICE-ERROR-DEVICE" "DIVISION-BY-ZERO" "DO-INTERNAL-SYMBOLS" 
"ECHO-STREAM-INPUT-STREAM" "ECHO-STREAM-OUTPUT-STREAM" "ECHO-STREAM-P" "ESCAPE-COLONS-PROCEED" 
"EXPORT-CONFLICT" "EXPORT-CONFLICT-EXPORTED-SYMBOLS" "EXPORT-CONFLICT-PACAKGES" "EXPORT-MISSING" 
"EXPORT-MISSING-SYMBOLS" "FALSE" "FILE-ENVIRONMENTS" "FILE-ERROR" "FILE-ERROR-PATHNAME" 
"FILE-NOT-FOUND" "FILE-NOT-FOUND-PATHNAME" "FILE-WONT-OPEN" "FILE-WONT-OPEN-PATHNAME" "FIND-PROFILE" 
"FIND-RESTART" "FLOATING-OVERFLOW" "FLOATING-OVERFLOW-OPERANDS" "FLOATING-OVERFLOW-OPERATION" 
"FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW" "FLOATING-UNDERFLOW" 
"FLOATING-UNDERFLOW-OPERANDS" "FLOATING-UNDERFLOW-OPERATION" "FOLLOW-SYNONYM-STREAMS" "FS-ERROR" 
"FS-PROTECTION-VIOLATION" "FS-RESOURCES-EXCEEDED" "HANDLER-CASE" "HASH-TABLE-FULL" 
"HASH-TABLE-FULL-TABLE" "IMPORT-CONFLICT" "IMPORT-PROCEED" "INNER" "INVALID-PATHNAME" 
"INVALID-PATHNAME-PATHNAME" "INVOKE-DEBUGGER" "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" 
"LIST-ALL-PROFILES" "MAKE-EXTERNAL-PROCEED" "MAKE-INTERNAL-PROCEED" "MAKE-PROFILE" 
"MISSING-EXTERNAL-SYMBOL" "MISSING-EXTERNAL-SYMBOL-NAME" "MISSING-EXTERNAL-SYMBOL-PACKAGE" 
"MISSING-PACKAGE" "MISSING-PACKAGE-EXTERNAL" "MISSING-PACKAGE-PACKAGE-NAME" 
"MISSING-PACKAGE-SYMBOL-NAME" "MUFFLE-WARNING" "NAMED-PROGN" "NEW-PACKAGE-PROCEED" "ONCE-ONLY" 
"OPEN-STREAM-P" "PACK" "PACK*" "PACKAGE-ERROR" "PACKAGE-ERROR-PACKAGE" "PACKAGE-PREFIX" 
"PATHNAME-ERROR" "PATHNAME-ERROR-PATHNAME" "PKG-GOTO" "PREFER-CLSYM-PROCEED" "PREFER-ILSYM-PROCEED" 
"PROFILE-NAME" "PROFILE-P" "PROFILES" "PROGRAM-ERROR" "READ-CONFLICT" "READ-CONFLICT-NAME" 
"READ-CONFLICT-PACKAGES" "READVISE-FUNCTION" "REBREAK-FUNCTION" "RECORD-CREATE" "RECORD-FETCH" 
"RECORD-FFETCH" "REINSTALL-ADVICE" "RESTART" "RESTART-BIND" "RESTART-CASE" "RESTART-NAME" 
"RESTORE-PROFILE" "RETURN-CLSYM-PROCEED" "RETURN-ILSYM-PROCEED" "ROW-MAJOR-AREF" "SAVE-PROFILE" 
"SET-DEFAULT-EXEC-TYPE" "SET-EXEC-TYPE" "SHADOW-USE-CONFLICTS-PROCEED" "SHADOWING-IMPORT-PROCEED" 
"SIMPLE-DEVICE-ERROR" "SIMPLE-DEVICE-ERROR-DEVICE" "SIMPLE-DEVICE-ERROR-MESSAGE" "SIMPLE-STRING" 
"SIMPLE-TYPE-ERROR" "SIMPLE-TYPE-ERROR-CULPRIT" "SIMPLE-TYPE-ERROR-EXPECTED-TYPE" "STORAGE-EXHAUSTED" 
"STREAM-NOT-OPEN" "STREAM-NOT-OPEN-STREAM" "STRING-STREAM-P" "SYMBOL-COLON-ERROR" "SYMBOL-CONFLICT" 
"SYMBOL-CONFLICT-SYMBOLS" "SYMBOL-HT-FULL" "SYMBOL-NAME-TOO-LONG" "SYMBOL-NAME-TOO-LONG-STREAM" 
"SYNONYM-STREAM-P" "SYNONYM-STREAM-SYMBOL" "TRACE-FUNCTION" "TWO-WAY-STREAM-INPUT-STREAM" 
"TWO-WAY-STREAM-OUTPUT-STREAM" "TWO-WAY-STREAM-P" "TYPE-ERROR" "TYPE-ERROR-DATUM" 
"TYPE-ERROR-EXPECTED-TYPE" "TYPE-MISMATCH" "TYPE-MISMATCH-EXPECTED-TYPE" "TYPE-MISMATCH-MESSAGE" 
"TYPE-MISMATCH-VALUE" "UGLY-SYMBOL-PROCEED" "UNADVISE-FUNCTION" "UNBREAK-FUNCTION" "UNINTERN-CONFLICT"
 "UNINTERN-CONFLICT-SYMBOL" "UNINTERN-PROCEED" "UNINTERN-USEE-PROCEED" "UNINTERN-USER-PROCEED" 
"USE-CONFLICT" "USE-CONFLICT-USED-PACKAGE" "WITH-COLLECTION" "WITH-PROFILE" "WITH-SIMPLE-RESTART")) (
IL:MAPC CL::FUTURE-CITIZENS-OF-XCL (QUOTE CL::DEFECT-FROM-IL-TO-XCL)) (CL::CHECK-ALL) (IL:* IL:;; 
"Handle a few random symbols that need to be shared with COMMON-LISP") (IL:for IL:S IL:in (QUOTE (
DEFPACKAGE DELETE-PACKAGE)) IL:do (IMPORT IL:S IL:*COMMON-LISP-PACKAGE*) (EXPORT IL:S 
IL:*COMMON-LISP-PACKAGE*)))) (IL:* IL:;; "Arrange for the proper makefile environment") (IL:PROP (
IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:XCL-PACKAGE)))
(DEFUN CL::DEFECT-FROM-IL-TO-XCL (CL::NAME) (CL::NATURALIZE CL::NAME (FIND-PACKAGE (QUOTE CL::IL)) (
FIND-PACKAGE (QUOTE CL::XCL))))
(DEFUN CL::CHECK-ALL NIL (IL:* IL:; "Edited 17-Mar-92 22:07 by jrb:") (LET ((CL::XCLP (FIND-PACKAGE 
"XCL")) CL::TOO-MANY?) (DOLIST (CL::X CL::FUTURE-CITIZENS-OF-XCL T) (IL:* IL:;; 
"This test is bogus now, as lots of symbols in XCL are homed in COMMON-LISP") (IL:* IL:;; 
"(LET* ((S (INTERN X XCLP)) (P (SYMBOL-PACKAGE S))) (IF (NOT (EQ P XCLP)) (FORMAT T %"~S ~S~%%%%%" S P)))"
) (LET ((CL::SL (MAPCAN (IL:FUNCTION (LAMBDA (PACKAGE) (MULTIPLE-VALUE-BIND (SYMBOL CL::WHERE) (
FIND-SYMBOL CL::X PACKAGE) (AND SYMBOL (EQ CL::WHERE :EXTERNAL) (LIST SYMBOL))))) (QUOTE ("IL" "XCL" 
"CL"))))) (IF (NOT (CASE (LENGTH CL::SL) (2 (EQ (FIRST CL::SL) (SECOND CL::SL))) (3 (AND (EQ (FIRST 
CL::SL) (SECOND CL::SL)) (EQ (SECOND CL::SL) (THIRD CL::SL)))) (T T))) (PROGN (SETQ CL::TOO-MANY? T) (
PRINT CL::SL))))) (AND CL::TOO-MANY? (ERROR "Multiple versions of the above symbols exist~%%"))))
(DEFPARAMETER CL::FUTURE-CITIZENS-OF-XCL (QUOTE ((IL:* IL:;; "new definers") "DEFCOMMAND" "DEFDEFINER"
 "DEFGLOBALPARAMETER" "DEFGLOBALVAR" "DEFINE-CONDITION" "DEFINE-PROCEED-FUNCTION" "DEFINLINE" 
"DEFOPTIMIZER" "DEFPACKAGE" "DEF-DEFINE-TYPE" "*DEFINITION-HASH-TABLE*" (IL:* IL:;; "for UNDO") 
"DEFINE-UNDOABLE-MODIFY-MACRO" "UNDOABLY" "UNDOABLY-SETF" "DEFINE-SPECIAL-FORM" (IL:* IL:;; 
"for the EXEC") "*CURRENT-EVENT*" "EXEC-ID" "*PER-EXEC-VARIABLES*" "*EXEC-MAKE-UNDOABLE-P*" 
"EXEC-FORMAT" "EXEC-EVAL" "EXEC" "ADD-EXEC" "EXEC-VALUE-OF" (IL:* IL:;; "for the debugger") "DEBUGGER"
 "PRINT-BACKTRACE" "*DEBUGGER-MENU-ITEMS*" "ENTER-DEBUGGER-P" "*DEBUGGER-ENTRY-POINTS*" "HELP" 
"UNBREAK" "BREAK-FUNCTION" "*TRACE-DEPTH*" (IL:* IL:;; "others in alphabetical order") "&CONTEXT" 
"*CLTL2-PEDANTIC*" "*DEFAULT-PUSH-EXTENSION-SIZE*" "*PREFERRED-READING-SYMBOLS*" 
"*TOTAL-PACKAGES-LIMIT*" "ABORT" "ARRAY-NEEDS-INDIRECTION-P" "ASET" "BIT-ARRAY-P" "CATCH-ABORT" 
"CELL-ERROR" "CELL-ERROR-NAME" "COMPUTE-PROCEED-CASES" "CONDITION" "CONDITION-BIND" "CONDITION-CASE" 
"CONDITION-HANDLER" "CONDITION-REPORTER" "CONTROL-ERROR" "COPY-ARRAY" "DEBUG" "DEFAULT-PROCEED-REPORT"
 "DEFAULT-PROCEED-TEST" "DELETE-PACKAGE" "DESTRUCTURING-BIND" "DESTRUCTURING-SETQ" "DISPLACED-ARRAY-P"
 "DO-LOCAL-SYMBOLS" "END-OF-FILE" "END-OF-FILE-STREAM" "EQUAL-DIMENSIONS-P" "EXTENDABLE-ARRAY-P" 
"FILL-ARRAY" "FILL-VECTOR" "FIND-PROCEED-CASE" "GLOBAL" "GLOBALIZE" "HANDLER-BIND" "IGNORE-ERRORS" 
"ILLEGAL-GO" "ILLEGAL-GO-TAG" "ILLEGAL-RETURN" "ILLEGAL-RETURN-TAG" "ILLEGAL-THROW" 
"ILLEGAL-THROW-TAG" "INVOKE-PROCEED-CASE" "MAKE-CONDITION" "MAKE-VECTOR" "OPTIMIZERS" "PARSE-BODY" 
"PROCEED" "PROCEED-CASE" "PROCEED-CASE-NAME" "READ-ERROR" "READ-ERROR-STREAM" "READ-ONLY-ARRAY-P" 
"REMOVE-COMMENTS" "SERIOUS-CONDITION" "SHADOWING-USE-PACKAGE" "SIGNAL" "SIMPLE-ARRAY-P" "SIMPLE-BREAK"
 "SIMPLE-BREAK-FORMAT-ARGUMENTS" "SIMPLE-BREAK-FORMAT-STRING" "SIMPLE-CONDITION" 
"SIMPLE-CONDITION-FORMAT-ARGUMENTS" "SIMPLE-CONDITION-FORMAT-STRING" "SIMPLE-ERROR" 
"SIMPLE-ERROR-FORMAT-ARGUMENTS" "SIMPLE-ERROR-FORMAT-STRING" "SIMPLE-WARNING" 
"SIMPLE-WARNING-FORMAT-ARGUMENTS" "SIMPLE-WARNING-FORMAT-STRING" "STACK-OVERFLOW" "STORAGE-CONDITION" 
"STORE-VALUE" "STREAM-ERROR" "STREAM-ERROR-STREAM" "STRING-ARRAY-P" "TRUE" "UNBOUND-VARIABLE" 
"UNBOUND-VARIABLE-NAME" "UNDEFINED-FUNCTION" "UNDEFINED-FUNCTION-NAME" "USE-VALUE" "VECTOR-LENGTH" 
"WALK-FORM" "WALK-FORM-INTERNAL" "WALK-TEMPLATE" "WARNING")) 
"A list of names retroactively placed in XCL; do not add to it.")
(DEFPACKAGE "XEROX-COMMON-LISP" (:USE "LISP" "CONDITIONS") (:NICKNAMES "XCL") (:PREFIX-NAME "XCL") (
:IMPORT-FROM "COMMON-LISP" "DEFPACKAGE" "SIMPLE-WARNING" "TWO-WAY-STREAM-INPUT-STREAM" "SIMPLE-ERROR" 
"WARNING" "ECHO-STREAM-INPUT-STREAM" "SIMPLE-CONDITION" "STORAGE-CONDITION" "CONTROL-ERROR" 
"UNBOUND-VARIABLE" "STREAM-ERROR" "ROW-MAJOR-AREF" "SIMPLE-TYPE-ERROR" "ECHO-STREAM-OUTPUT-STREAM" 
"FLOATING-POINT-OVERFLOW" "SIGNAL" "OPEN-STREAM-P" "BROADCAST-STREAM-STREAMS" "PACKAGE-ERROR" 
"STRING-STREAM-P" "DESTRUCTURING-BIND" "END-OF-FILE" "FLOATING-POINT-UNDERFLOW" "ABORT" 
"SYNONYM-STREAM-P" "SYNONYM-STREAM-SYMBOL" "PROGRAM-ERROR" "CONCATENATED-STREAM-STREAMS" 
"TWO-WAY-STREAM-OUTPUT-STREAM" "TYPE-ERROR" "ARITHMETIC-ERROR" "CELL-ERROR" "FILE-ERROR" 
"SERIOUS-CONDITION" "DIVISION-BY-ZERO" "UNDEFINED-FUNCTION" "SIMPLE-STRING" "CONDITION" 
"DELETE-PACKAGE" "MAKE-VECTOR") (:IMPORT-FROM "LISP" "SIMPLE-STRING") (:EXPORT "*BREAK-ON-SIGNALS*" 
"*CURRENT-CONDITION*" "*DEBUGGER-PROMPT*" "*DEFAULT-PROFILE*" "*EVAL-FUNCTION*" "*EXEC-PROMPT*" 
"*LONG-SITE-NAME*" "*PRINT-STRUCTURE*" "*PROFILE*" "*SHORT-SITE-NAME*" "*TRACE-IO*" "*TRACE-LENGTH*" 
"*TRACE-LEVEL*" "*TRACE-VERBOSE*" "ADVISE-FUNCTION" "ADVISED-FUNCTIONS" "ARGLIST" "ARITHMETIC-ERROR" 
"ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION" "ARRAY-SPACE-FULL" "ASSERTION-FAILED" 
"ASSERTION-FAILED-FORMAT-ARGUMENTS" "ASSERTION-FAILED-FORMAT-STRING" "ATTEMPT-TO-CHANGE-CONSTANT" 
"ATTEMPT-TO-CHANGE-CONSTANT-NAME" "ATTEMPT-TO-RPLAC-NIL" "ATTEMPT-TO-RPLAC-NIL-NAME" 
"BAD-PROCEED-CASE" "BAD-PROCEED-CASE-NAME" "BROADCAST-STREAM-P" "BROADCAST-STREAM-STREAMS" "COLLECT" 
"COMPILE-DEFINER" "COMPILE-FORM" "COMPUTE-RESTARTS" "CONCATENATED-STREAM-P" 
"CONCATENATED-STREAM-STREAMS" "CONTINUE" "CONTROL-E-INTERRUPT" "CONTROL-E-INTERRUPT-FUNCTION" 
"COPY-PROFILE" "CREATE-TRACE-WINDOW" "DATA-TYPES-EXHAUSTED" "DEFADVICE" "DEFINE-FILE-ENVIRONMENT" 
"DEFINE-RECORD" "DEFINER" "DEFPROFILE" "DELETED-PACKAGE-P" "DEVICE-ERROR" "DEVICE-ERROR-DEVICE" 
"DIVISION-BY-ZERO" "DO-INTERNAL-SYMBOLS" "ECHO-STREAM-INPUT-STREAM" "ECHO-STREAM-OUTPUT-STREAM" 
"ECHO-STREAM-P" "ESCAPE-COLONS-PROCEED" "EXPORT-CONFLICT" "EXPORT-CONFLICT-EXPORTED-SYMBOLS" 
"EXPORT-CONFLICT-PACAKGES" "EXPORT-MISSING" "EXPORT-MISSING-SYMBOLS" "FALSE" "FILE-ENVIRONMENTS" 
"FILE-ERROR" "FILE-ERROR-PATHNAME" "FILE-NOT-FOUND" "FILE-NOT-FOUND-PATHNAME" "FILE-WONT-OPEN" 
"FILE-WONT-OPEN-PATHNAME" "FIND-PROFILE" "FIND-RESTART" "FLOATING-OVERFLOW" 
"FLOATING-OVERFLOW-OPERANDS" "FLOATING-OVERFLOW-OPERATION" "FLOATING-POINT-OVERFLOW" 
"FLOATING-POINT-UNDERFLOW" "FLOATING-UNDERFLOW" "FLOATING-UNDERFLOW-OPERANDS" 
"FLOATING-UNDERFLOW-OPERATION" "FOLLOW-SYNONYM-STREAMS" "FS-ERROR" "FS-PROTECTION-VIOLATION" 
"FS-RESOURCES-EXCEEDED" "HANDLER-CASE" "HASH-TABLE-FULL" "HASH-TABLE-FULL-TABLE" "IMPORT-CONFLICT" 
"IMPORT-PROCEED" "INNER" "INVALID-PATHNAME" "INVALID-PATHNAME-PATHNAME" "INVOKE-DEBUGGER" 
"INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "LIST-ALL-PROFILES" "MAKE-EXTERNAL-PROCEED" 
"MAKE-INTERNAL-PROCEED" "MAKE-PROFILE" "MISSING-EXTERNAL-SYMBOL" "MISSING-EXTERNAL-SYMBOL-NAME" 
"MISSING-EXTERNAL-SYMBOL-PACKAGE" "MISSING-PACKAGE" "MISSING-PACKAGE-EXTERNAL" 
"MISSING-PACKAGE-PACKAGE-NAME" "MISSING-PACKAGE-SYMBOL-NAME" "MUFFLE-WARNING" "NAMED-PROGN" 
"NEW-PACKAGE-PROCEED" "ONCE-ONLY" "OPEN-STREAM-P" "PACK" "PACK*" "PACKAGE-ERROR" 
"PACKAGE-ERROR-PACKAGE" "PACKAGE-PREFIX" "PATHNAME-ERROR" "PATHNAME-ERROR-PATHNAME" "PKG-GOTO" 
"PREFER-CLSYM-PROCEED" "PREFER-ILSYM-PROCEED" "PROFILE-NAME" "PROFILE-P" "PROFILES" "PROGRAM-ERROR" 
"READ-CONFLICT" "READ-CONFLICT-NAME" "READ-CONFLICT-PACKAGES" "READVISE-FUNCTION" "REBREAK-FUNCTION" 
"RECORD-CREATE" "RECORD-FETCH" "RECORD-FFETCH" "REINSTALL-ADVICE" "RESTART" "RESTART-BIND" 
"RESTART-CASE" "RESTART-NAME" "RESTORE-PROFILE" "RETURN-CLSYM-PROCEED" "RETURN-ILSYM-PROCEED" 
"ROW-MAJOR-AREF" "SAVE-PROFILE" "SET-DEFAULT-EXEC-TYPE" "SET-EXEC-TYPE" "SHADOW-USE-CONFLICTS-PROCEED"
 "SHADOWING-IMPORT-PROCEED" "SIMPLE-DEVICE-ERROR" "SIMPLE-DEVICE-ERROR-DEVICE" 
"SIMPLE-DEVICE-ERROR-MESSAGE" "SIMPLE-STRING" "SIMPLE-TYPE-ERROR" "SIMPLE-TYPE-ERROR-CULPRIT" 
"SIMPLE-TYPE-ERROR-EXPECTED-TYPE" "STORAGE-EXHAUSTED" "STREAM-NOT-OPEN" "STREAM-NOT-OPEN-STREAM" 
"STRING-STREAM-P" "SYMBOL-COLON-ERROR" "SYMBOL-CONFLICT" "SYMBOL-CONFLICT-SYMBOLS" "SYMBOL-HT-FULL" 
"SYMBOL-NAME-TOO-LONG" "SYMBOL-NAME-TOO-LONG-STREAM" "SYNONYM-STREAM-P" "SYNONYM-STREAM-SYMBOL" 
"TRACE-FUNCTION" "TWO-WAY-STREAM-INPUT-STREAM" "TWO-WAY-STREAM-OUTPUT-STREAM" "TWO-WAY-STREAM-P" 
"TYPE-ERROR" "TYPE-ERROR-DATUM" "TYPE-ERROR-EXPECTED-TYPE" "TYPE-MISMATCH" 
"TYPE-MISMATCH-EXPECTED-TYPE" "TYPE-MISMATCH-MESSAGE" "TYPE-MISMATCH-VALUE" "UGLY-SYMBOL-PROCEED" 
"UNADVISE-FUNCTION" "UNBREAK-FUNCTION" "UNINTERN-CONFLICT" "UNINTERN-CONFLICT-SYMBOL" 
"UNINTERN-PROCEED" "UNINTERN-USEE-PROCEED" "UNINTERN-USER-PROCEED" "USE-CONFLICT" 
"USE-CONFLICT-USED-PACKAGE" "WITH-COLLECTION" "WITH-PROFILE" "WITH-SIMPLE-RESTART"))
(IL:MAPC CL::FUTURE-CITIZENS-OF-XCL (QUOTE CL::DEFECT-FROM-IL-TO-XCL))
(CL::CHECK-ALL)
(IL:for IL:S IL:in (QUOTE (DEFPACKAGE DELETE-PACKAGE)) IL:do (IMPORT IL:S IL:*COMMON-LISP-PACKAGE*) (
EXPORT IL:S IL:*COMMON-LISP-PACKAGE*))
(IL:PUTPROPS IL:XCL-PACKAGE IL:FILETYPE IL:COMPILE-FILE)
(IL:PUTPROPS IL:XCL-PACKAGE IL:MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE (DEFPACKAGE "XCL"
 (:USE))))
(IL:PUTPROPS IL:XCL-PACKAGE IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 1992))
NIL