(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE (DEFPACKAGE "FASL" (USE "LISP")))

(IL:FILECREATED "16-May-90 16:33:38" IL:{DSK}<usr>local>lde>lispcore>sources>FASL-PACKAGE.;2
 4313   

      IL:changes IL:to%:  (IL:VARS IL:FASL-PACKAGECOMS)

      IL:previous IL:date%: "27-Apr-88 19:02:59" IL:{DSK}<usr>local>lde>lispcore>sources>FASL-PACKAGE.;1
)


(IL:* ; "
Copyright (c) 1986, 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.
")

(IL:PRETTYCOMPRINT IL:FASL-PACKAGECOMS)

(IL:RPAQQ IL:FASL-PACKAGECOMS

          (

(IL:* IL:;;; "Setting up the FASL package.")


           (IL:P (XCL:DEFPACKAGE "FASL" (:USE "LISP")
                        (:EXPORT FASL-KEYWORD-SYMBOL FASL-T DUMP-FUNCALL FASL-LIST FASL-LIST* 
                               CLOSE-FASL-HANDLE WITH-OPTABLE PROCESS-BLOCK FASL-SHORT-INTEGER 
                               PROCESS-FILE FASL-EVAL FASL-RATIO WITH-OPEN-HANDLE 
                               FASL-SETF-SYMBOL-FUNCTION UNIMPLEMENTED-OPCODE-OPNAME FASL-VECTOR 
                               FASL-CHARACTER FASL-FLOAT32 OBJECT-NOT-DUMPABLE DEFRANGE 
                               FASL-VERIFY-TABLE-SIZE DUMP-VALUE VALUE-DUMPABLE-P FASL-DCODE 
                               FASL-LOCAL-FN-FIXUPS FASL-TABLE-STORE SKIP-TEXT 
                               UNEXPECTED-END-OF-BLOCK-STREAM READ-TEXT INCONSISTENT-TABLE-TABLE 
                               FASL-LISP-SYMBOL FASL-INTERLISP-SYMBOL DEFOP OPCODE-SEQUENCE 
                               FASL-INITIALIZE-ARRAY FASL-INITIALIZE-BIT-ARRAY SIGNATURE 
                               FASL-LARGE-INTEGER OBJECT-NOT-DUMPABLE-OBJECT FASL-FUNCALL FASL-NIL 
                               FASL-SYMBOL-IN-PACKAGE NEXT-VALUE UNEXPECTED-END-OF-BLOCK 
                               DUMP-FUNCTION-DEF BEGIN-BLOCK BEGIN-TEXT PROCESS-SEGMENT 
                               FASL-FIND-PACKAGE FASL-CREATE-ARRAY INCONSISTENT-TABLE-EXPECTED 
                               MAKE-OPTABLE *DEFAULT-OPTABLE* FASL-TABLE-FETCH OPEN-FASL-HANDLE 
                               CHECK-VERSION FASL-FAT-STRING CURRENT-VERSION UNIMPLEMENTED-OPCODE 
                               FASL-ERROR FASL-INTEGER FASL-COMPLEX DUMP-EVAL INCONSISTENT-TABLE 
                               FASL-THIN-STRING FASL-BITMAP16 FASL-STRUCTURE)))
           
           (IL:* IL:;; "Arrange for the correct makefile environment")


           (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:FASL-PACKAGE)))



(IL:* IL:;;; "Setting up the FASL package.")



(XCL:DEFPACKAGE "FASL" (:USE "LISP")
       (:EXPORT FASL-KEYWORD-SYMBOL FASL-T DUMP-FUNCALL FASL-LIST FASL-LIST* CLOSE-FASL-HANDLE 
              WITH-OPTABLE PROCESS-BLOCK FASL-SHORT-INTEGER PROCESS-FILE FASL-EVAL FASL-RATIO 
              WITH-OPEN-HANDLE FASL-SETF-SYMBOL-FUNCTION UNIMPLEMENTED-OPCODE-OPNAME FASL-VECTOR 
              FASL-CHARACTER FASL-FLOAT32 OBJECT-NOT-DUMPABLE DEFRANGE FASL-VERIFY-TABLE-SIZE 
              DUMP-VALUE VALUE-DUMPABLE-P FASL-DCODE FASL-LOCAL-FN-FIXUPS FASL-TABLE-STORE SKIP-TEXT
              UNEXPECTED-END-OF-BLOCK-STREAM READ-TEXT INCONSISTENT-TABLE-TABLE FASL-LISP-SYMBOL 
              FASL-INTERLISP-SYMBOL DEFOP OPCODE-SEQUENCE FASL-INITIALIZE-ARRAY 
              FASL-INITIALIZE-BIT-ARRAY SIGNATURE FASL-LARGE-INTEGER OBJECT-NOT-DUMPABLE-OBJECT 
              FASL-FUNCALL FASL-NIL FASL-SYMBOL-IN-PACKAGE NEXT-VALUE UNEXPECTED-END-OF-BLOCK 
              DUMP-FUNCTION-DEF BEGIN-BLOCK BEGIN-TEXT PROCESS-SEGMENT FASL-FIND-PACKAGE 
              FASL-CREATE-ARRAY INCONSISTENT-TABLE-EXPECTED MAKE-OPTABLE *DEFAULT-OPTABLE* 
              FASL-TABLE-FETCH OPEN-FASL-HANDLE CHECK-VERSION FASL-FAT-STRING CURRENT-VERSION 
              UNIMPLEMENTED-OPCODE FASL-ERROR FASL-INTEGER FASL-COMPLEX DUMP-EVAL INCONSISTENT-TABLE
              FASL-THIN-STRING FASL-BITMAP16 FASL-STRUCTURE))



(IL:* IL:;; "Arrange for the correct makefile environment")



(IL:PUTPROPS IL:FASL-PACKAGE
 IL:MAKEFILE-ENVIRONMENT
 (:READTABLE "INTERLISP" :PACKAGE
                                                                    (XCL:DEFPACKAGE "FASL"
                                                                           (:USE "LISP"))))
(IL:PUTPROPS IL:FASL-PACKAGE IL:COPYRIGHT ("Venue & Xerox Corporation" 1986 1988 1990))
(IL:DECLARE%: IL:DONTCOPY
  (IL:FILEMAP (NIL)))
IL:STOP