(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL"))) (IL:FILECREATED "16-May-90 15:03:20" IL:{DSK}local>lde>lispcore>sources>COMPILER-PACKAGE.;2 2312 IL:changes IL:to%: (IL:VARS IL:COMPILER-PACKAGECOMS) IL:previous IL:date%: "14-Jan-87 21:43:52" IL:{DSK}local>lde>lispcore>sources>COMPILER-PACKAGE.;1) (IL:* ; " Copyright (c) 1986, 1987, 1990 by Venue & Xerox Corporation. All rights reserved. ") (IL:PRETTYCOMPRINT IL:COMPILER-PACKAGECOMS) (IL:RPAQQ IL:COMPILER-PACKAGECOMS ( (IL:* IL:;; "Setting up the COMPILER package") (IL:P (DEFPACKAGE "COMPILER" (:USE "LISP" "XCL") (:NICKNAMES "XCLC") (:PREFIX-NAME "COMPILER") (:EXPORT PASS CONTEXT-TOP-LEVEL-P CONTEXT CONTEXT-VALUES-USED CONTEXT-PREDICATE-P MAKE-CONTEXT ENV ENV-BOUNDP ENV-FBOUNDP MAKE-EMPTY-ENV COPY-ENV-WITH-VARIABLE COPY-ENV-WITH-FUNCTION OPTIMIZE-AND-MACROEXPAND OPTIMIZE-AND-MACROEXPAND-1 OPTIMIZER-LIST ASSEMBLER-ERROR))) (IL:* IL:;; "Arrange for the correct MAKEFILE environment") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:COMPILER-PACKAGE))) (IL:* IL:;; "Setting up the COMPILER package") (DEFPACKAGE "COMPILER" (:USE "LISP" "XCL") (:NICKNAMES "XCLC") (:PREFIX-NAME "COMPILER") (:EXPORT PASS CONTEXT-TOP-LEVEL-P CONTEXT CONTEXT-VALUES-USED CONTEXT-PREDICATE-P MAKE-CONTEXT ENV ENV-BOUNDP ENV-FBOUNDP MAKE-EMPTY-ENV COPY-ENV-WITH-VARIABLE COPY-ENV-WITH-FUNCTION OPTIMIZE-AND-MACROEXPAND OPTIMIZE-AND-MACROEXPAND-1 OPTIMIZER-LIST ASSEMBLER-ERROR)) (IL:* IL:;; "Arrange for the correct MAKEFILE environment") (IL:PUTPROPS IL:COMPILER-PACKAGE IL:MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE (DEFPACKAGE "COMPILER" (:USE "LISP" "XCL")))) (IL:PUTPROPS IL:COMPILER-PACKAGE IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990)) (IL:DECLARE%: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP