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

(il:filecreated " 8-Jan-89 16:52:34" il:{qv}<idl>next>load-na.\;4
 1165   

      il:|changes| il:|to:|  (il:variables *na-files*) (il:vars il:load-nacoms) (il:functions load-na)

      il:|previous| il:|date:| " 8-Jan-89 16:51:07" il:{qv}<idl>next>load-na.\;3)


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

(il:prettycomprint il:load-nacoms)

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

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

(defparameter *na-files* (quote ("BLAS-FNS" "LINPACK-OPS" "SORTER" "CDF-FNS")))

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

(load-na)
)

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