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

(il:filecreated " 1-Dec-88 17:29:39" il:{qv}<idl>next>load-plot.\;5
 1207   

      il:|changes| il:|to:|  (il:variables *plot-files*)

      il:|previous| il:|date:| "25-Nov-88 16:47:54" il:{qv}<idl>next>load-plot.\;4)


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

(il:prettycomprint il:load-plotcoms)

(il:rpaqq il:load-plotcoms ((il:files il:portable-xcl-tools) (il:variables *plot-files*) (il:functions load-plot) (il:declare\: il:docopy il:donteval@load (il:p (load-plot))) (file-environments "LOAD-PLOT")))

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

(defvar *plot-files* (quote ("TWOD-GRAPHICS-PACKAGE" "TWOD-GRAPHICS" "VIEW-PORTS" "PLOT-PACKAGE" "PLOT-FNS" "PLOT-OBJECTS" "PLOT-IO" "PLOT-EXAMPLES")))

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

(load-plot)
)

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