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

(il:filecreated "10-Jan-89 18:44:49" il:{qv}<idl>next>load-idl.\;4
 1249   

      il:|changes| il:|to:|  (il:vars il:load-idlcoms)

      il:|previous| il:|date:| " 8-Jan-89 17:06:52" il:{qv}<idl>next>load-idl.\;3)


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

(il:prettycomprint il:load-idlcoms)

(il:rpaqq il:load-idlcoms ((il:files il:portable-xcl-tools) (il:variables *idl-files*) (il:functions load-idl) (il:declare\: il:docopy il:donteval@load (il:files il:load-e-array il:load-na il:load-plot) (il:p (load-idl))) (file-environments "LOAD-IDL")))

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

(defparameter *idl-files* (quote ("MEASUREMENTS" "BATCHES" "DATASETS" "DATASET-EXAMPLES")))

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

(il:filesload il:load-e-array il:load-na il:load-plot)


(load-idl)
)

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