(FILECREATED " 1-Jun-86 13:24:45" {QV}<IDL>SOURCES>LOADIDL.;7
 1926   

      changes to:  (FNS LOADIDL)

      previous date: "17-Feb-86 12:34:53" {QV}<IDL>SOURCES>LOADIDL.;6)


(* Copyright (c) 1984, 1985, 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT LOADIDLCOMS)

(RPAQQ LOADIDLCOMS
 [(FNS LOADIDL)
		      (VARS FASTSYSLISPUSERSFILES IDLRUNFILES)
		      (DECLARE: DOCOPY DONTEVAL@LOAD (P (LOADIDL])
(DEFINEQ

(LOADIDL

  [LAMBDA NIL                                                (* edited: " 1-Jun-86 13:20")

                                                             (* When loaded into a raw makesys, this function 

							     builds the production IDL sysout.)

    (DECLARE
 (
GLOBALVARS
 TESTSYS FASTCOMPILE FASTSYSLISPUSERSFILES IDLRUNFILES COMPILE.EXT))
    (
DOFILESLOAD
 (
CONS
 (
LIST
 (
QUOTE
 SYSLOAD)
				   (
QUOTE
 FROM)
				   (
QUOTE
 VALUEOF)
				   (
QUOTE
 LISPUSERSDIRECTORIES))
			   FASTSYSLISPUSERSFILES))           (* Do these with modified directory, normal extension,

							     since fast-compiled versions don't exist for these.)

    (
SETQ
 TESTSYS NIL)
    (
SETQ
 FASTCOMPILE T)
    (
RESETVARS
 ((COMPILE.EXT (
PACK*
 (
QUOTE
 F)
					COMPILE.EXT)))
	         [
DOFILESLOAD
 (
CONS
 (
LIST
 (
QUOTE
 SYSLOAD))
					(
QUOTE
 (PREPATCHIDL]
	         (
DOFILESLOAD
 (
CONS
 (
LIST
 (
QUOTE
 SYSLOAD))
					IDLRUNFILES])
)

(RPAQQ FASTSYSLISPUSERSFILES
 (SHOW LAMBDATRAN PLOT TWODINSPECTOR FREEMENU))

(RPAQQ IDLRUNFILES
 (ELAMTRAN TOPLEVEL ROWS GLOBAL ANOVA ARRAY ASSIGN AT COMPRESS CONV DATAENTRY 
			       DIST EXTEND ELAMTRAN GENERATORS LABELS MATRIX PRINT SELECTOR 
			       SCALARARITH ARITHMETIC USERARITH INSPECTIDLARRAY IDLPLOT IDLLIBRARY))
(DECLARE: DOCOPY DONTEVAL@LOAD 
(LOADIDL)
)
(PUTPROPS LOADIDL COPYRIGHT ("Xerox Corporation" 1984 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (433 1459 (LOADIDL 443 . 1457)))))
STOP