(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)


(FILECREATED " 5-Sep-2024 22:33:36" {DSK}<home>matt>Interlisp>medley>sources>DEFPACKAGE-IMPORT.;2
 1161   

      :EDIT-BY "mth"

      :CHANGES-TO (VARS DEFPACKAGE-IMPORTCOMS)

      :PREVIOUS-DATE "16-May-90 15:31:19" 
{DSK}<home>matt>Interlisp>medley>sources>DEFPACKAGE-IMPORT.;1)


(PRETTYCOMPRINT DEFPACKAGE-IMPORTCOMS)

(RPAQQ DEFPACKAGE-IMPORTCOMS
 ((P (IMPORT (CL:INTERN "DEFPACKAGE" "XCL")
                                        "INTERLISP")
                                 (IMPORT (CL:INTERN "DEFPACKAGE" "XCL")
                                        "LISP")
                                 (EXPORT (CL:FIND-SYMBOL "DEFPACKAGE" "LISP")
                                        "LISP"))
                              (PROP MAKEFILE-ENVIRONMENT DEFPACKAGE-IMPORT)))

(IMPORT (CL:INTERN "DEFPACKAGE" "XCL")
       "INTERLISP")

(IMPORT (CL:INTERN "DEFPACKAGE" "XCL")
       "LISP")

(EXPORT (CL:FIND-SYMBOL "DEFPACKAGE" "LISP")
       "LISP")

(PUTPROPS DEFPACKAGE-IMPORT
 MAKEFILE-ENVIRONMENT
 (:READTABLE "INTERLISP" :PACKAGE "INTERLISP"))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP