(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE (DEFPACKAGE "XCL" (§USE)))
(IL:FILECREATED "24-Oct-86 19:27:59" ("compiled on " IL:{ERIS}<LISPCORE>SOURCES>XCL-PACKAGE.;7) 
"21-Oct-86 04:13:01" IL:tcompl'd IL:in "Xerox Lisp 21-Oct-86 ..." IL:dated "21-Oct-86 04:48:43")
(IL:FILECREATED "24-Oct-86 19:27:30" IL:{ERIS}<LISPCORE>SOURCES>XCL-PACKAGE.;7 10620 IL:changes IL:to%:
 (IL:VARS IL:XCL-PACKAGECOMS) IL:previous IL:date%: "24-Oct-86 12:02:41" 
IL:{ERIS}<LISPCORE>SOURCES>XCL-PACKAGE.;5)
(IL:PRETTYCOMPRINT IL:XCL-PACKAGECOMS)
(IL:RPAQQ IL:XCL-PACKAGECOMS ((IL:* IL:;;; "Setting up the XCL package.") (IL:P (IL:DEFPACKAGE 
"XEROX-COMMON-LISP" (:USE "LISP") (:NICKNAMES "XCL") (:PREFIX-NAME "XCL") (:EXPORT &CONTEXT 
*PRINT-STRUCTURE* *TOTAL-PACKAGES-LIMIT* ABORT ADJUSTABLE-ARRAY-P ARRAY-NEEDS-INDIRECTION-P ASET 
CATCH-ABORT CELL-ERROR CELL-ERROR-NAME COMPUTE-PROCEED-CASES CONDITION CONDITION-BIND CONDITION-CASE 
CONDITION-HANDLER CONDITION-REPORTER CONTROL-ERROR COPY-ARRAY DEBUG DEF-DEFINE-TYPE 
DEFAULT-PROCEED-REPORT DEFAULT-PROCEED-TEST DEFCOMMAND DEFDEFINER DEFGLOBALPARAMETER DEFGLOBALVAR 
DEFINE-CONDITION DEFINE-PROCEED-FUNCTION DEFINLINE DEFOPTIMIZER DEFPACKAGE DELETE-PACKAGE 
DESTRUCTURING-BIND DESTRUCTURING-SETQ DISPLACED-ARRAY-P DO-EXTERNAL-SYMBOLS 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 OPTIMIZERS PACK
 PACK* 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)) (IL:* IL:;;; "DO NOT ADD NEW SYMBOLS TO THIS LIST") (
CL:IMPORT (CL:QUOTE (&CONTEXT *PRINT-STRUCTURE* *TOTAL-PACKAGES-LIMIT* ABORT ADJUSTABLE-ARRAY-P 
ARRAY-NEEDS-INDIRECTION-P ASET CATCH-ABORT CELL-ERROR CELL-ERROR-NAME COMPUTE-PROCEED-CASES CONDITION 
CONDITION-BIND CONDITION-CASE CONDITION-HANDLER CONDITION-REPORTER CONTROL-ERROR COPY-ARRAY DEBUG 
DEF-DEFINE-TYPE DEFAULT-PROCEED-REPORT DEFAULT-PROCEED-TEST DEFCOMMAND DEFDEFINER DEFGLOBALPARAMETER 
DEFGLOBALVAR DEFINE-CONDITION DEFINE-PROCEED-FUNCTION DEFINLINE DEFOPTIMIZER DEFPACKAGE DELETE-PACKAGE
 DESTRUCTURING-BIND DESTRUCTURING-SETQ DISPLACED-ARRAY-P DO-EXTERNAL-SYMBOLS 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 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)) "INTERLISP")) (IL:* IL:;; 
"Arrange for the proper makefile environment") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:XCL-PACKAGE)))
(IL:DEFPACKAGE "XEROX-COMMON-LISP" (:USE "LISP") (:NICKNAMES "XCL") (:PREFIX-NAME "XCL") (:EXPORT 
&CONTEXT *PRINT-STRUCTURE* *TOTAL-PACKAGES-LIMIT* ABORT ADJUSTABLE-ARRAY-P ARRAY-NEEDS-INDIRECTION-P 
ASET CATCH-ABORT CELL-ERROR CELL-ERROR-NAME COMPUTE-PROCEED-CASES CONDITION CONDITION-BIND 
CONDITION-CASE CONDITION-HANDLER CONDITION-REPORTER CONTROL-ERROR COPY-ARRAY DEBUG DEF-DEFINE-TYPE 
DEFAULT-PROCEED-REPORT DEFAULT-PROCEED-TEST DEFCOMMAND DEFDEFINER DEFGLOBALPARAMETER DEFGLOBALVAR 
DEFINE-CONDITION DEFINE-PROCEED-FUNCTION DEFINLINE DEFOPTIMIZER DEFPACKAGE DELETE-PACKAGE 
DESTRUCTURING-BIND DESTRUCTURING-SETQ DISPLACED-ARRAY-P DO-EXTERNAL-SYMBOLS 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 OPTIMIZERS PACK
 PACK* 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))
(CL:IMPORT (CL:QUOTE (&CONTEXT *PRINT-STRUCTURE* *TOTAL-PACKAGES-LIMIT* ABORT ADJUSTABLE-ARRAY-P 
ARRAY-NEEDS-INDIRECTION-P ASET CATCH-ABORT CELL-ERROR CELL-ERROR-NAME COMPUTE-PROCEED-CASES CONDITION 
CONDITION-BIND CONDITION-CASE CONDITION-HANDLER CONDITION-REPORTER CONTROL-ERROR COPY-ARRAY DEBUG 
DEF-DEFINE-TYPE DEFAULT-PROCEED-REPORT DEFAULT-PROCEED-TEST DEFCOMMAND DEFDEFINER DEFGLOBALPARAMETER 
DEFGLOBALVAR DEFINE-CONDITION DEFINE-PROCEED-FUNCTION DEFINLINE DEFOPTIMIZER DEFPACKAGE DELETE-PACKAGE
 DESTRUCTURING-BIND DESTRUCTURING-SETQ DISPLACED-ARRAY-P DO-EXTERNAL-SYMBOLS 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 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)) "INTERLISP")
(IL:PUTPROPS IL:XCL-PACKAGE IL:MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE (IL:DEFPACKAGE 
"XCL" (:USE))))
(IL:PUTPROPS IL:XCL-PACKAGE IL:COPYRIGHT ("Xerox Corporation" 1986))
NIL