(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "XCL-USER")

(il:filecreated " 8-Jan-89 16:55:02" il:{qv}<idl>next>load-e-array.\;7
 1243   

      il:|changes| il:|to:|  (il:variables *e-array-files*)

      il:|previous| il:|date:| "25-Nov-88 16:47:37" il:{qv}<idl>next>load-e-array.\;6)


; Copyright (c) 1988, 1989 by Xerox Corporation.  All rights reserved.

(il:prettycomprint il:load-e-arraycoms)

(il:rpaqq il:load-e-arraycoms ((il:files il:portable-xcl-tools) (il:variables *e-array-files*) (il:functions load-e-array) (il:declare\: il:docopy il:donteval@load (il:p (load-e-array))) (file-environments "LOAD-E-ARRAY")))

(il:filesload il:portable-xcl-tools)

(defparameter *e-array-files* (quote ("E-ARRAY-PACKAGE" "E-ARRAY" "E-ARRAY-ITERATORS" "E-ARRAY-FNS" "E-ARRAY-FLOAT" "E-ARRAY-ARITH")))

(defun load-e-array (&key (from (and (boundp (quote il:ldflg)) *standard-input*)) (how :sysload)) (pt:load-files *e-array-files* :from (and from (pathname from)) :how how))
(il:declare\: il:docopy il:donteval@load 

(load-e-array)
)

(define-file-environment "LOAD-E-ARRAY" :package "XCL-USER" :readtable "XCL" :compiler :compile-file)
(il:putprops il:load-e-array il:copyright ("Xerox Corporation" 1988 1989))
(il:declare\: il:dontcopy
  (il:filemap (nil)))
il:stop