(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE (DEFPACKAGE "XCL" (USE))) (IL:FILECREATED "31-Mar-92 09:32:35" IL:{DSK}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}local>lde>lispcore>sources>XCL-PACKAGE.;4 ) (IL:* ; " Copyright (c) 1986, 1987, 1988, 1990, 1991, 1992 by Venue & Xerox Corporation. All rights reserved. ") (IL:PRETTYCOMPRINT IL:XCL-PACKAGECOMS) (IL:RPAQQ IL:XCL-PACKAGECOMS ( (IL:* IL:;;; "Setting up the XCL package.") (IL:FUNCTIONS LISP::DEFECT-FROM-IL-TO-XCL LISP::CHECK-ALL) (IL:VARIABLES LISP::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 LISP::FUTURE-CITIZENS-OF-XCL 'LISP::DEFECT-FROM-IL-TO-XCL) (LISP::CHECK-ALL) (IL:* IL:;;  "Handle a few random symbols that need to be shared with COMMON-LISP") (IL:for IL:S IL:in '(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))) (IL:* IL:;;; "Setting up the XCL package.") (DEFUN LISP::DEFECT-FROM-IL-TO-XCL (LISP::NAME) (CL::NATURALIZE LISP::NAME (FIND-PACKAGE 'LISP::IL) (FIND-PACKAGE 'LISP::XCL))) (DEFUN LISP::CHECK-ALL () (IL:* IL:; "Edited 17-Mar-92 22:07 by jrb:") (LET ((LISP::XCLP (FIND-PACKAGE "XCL")) LISP::TOO-MANY?) (DOLIST (LISP::X LISP::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 [(LISP::SL (MAPCAN [IL:FUNCTION (LAMBDA (PACKAGE) (MULTIPLE-VALUE-BIND (SYMBOL LISP::WHERE) (FIND-SYMBOL LISP::X PACKAGE) (AND SYMBOL (EQ LISP::WHERE :EXTERNAL) (LIST SYMBOL] '("IL" "XCL" "CL"] (IF (NOT (CASE (LENGTH LISP::SL) (2 (EQ (FIRST LISP::SL) (SECOND LISP::SL))) (3 (AND (EQ (FIRST LISP::SL) (SECOND LISP::SL)) (EQ (SECOND LISP::SL) (THIRD LISP::SL)))) (T T))) (PROGN (SETQ LISP::TOO-MANY? T) (PRINT LISP::SL)))]) (AND LISP::TOO-MANY? (ERROR "Multiple versions of the above symbols exist~%%")))) (DEFPARAMETER LISP::FUTURE-CITIZENS-OF-XCL '( (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.") (IL:DECLARE%: IL:DONTEVAL@LOAD IL:DOCOPY (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 LISP::FUTURE-CITIZENS-OF-XCL 'LISP::DEFECT-FROM-IL-TO-XCL) (LISP::CHECK-ALL) (IL:* IL:;; "Handle a few random symbols that need to be shared with COMMON-LISP") (IL:for IL:S IL:in '(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: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)) (IL:DECLARE%: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP