(FILECREATED " 3-Apr-86 12:32:49" {QV}<IDL>RELEASE0.1>LOADIDL.;1
 2226   

      changes to:  (VARS LOADIDLCOMS FASTSYSLISPUSERSFILES IDLRUNFILES IDLLISPUSERSDIRECTORY)

      previous date: "12-Mar-86 13:38:48" {POGO:PARC:XEROX}<IDL>RELEASE0>LOADIDL.;2)


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

(PRETTYCOMPRINT LOADIDLCOMS)

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

(LOADIDL

  [LAMBDA NIL                                                (* jop: "12-Mar-86 13:38")

                                                             (* When loaded into a raw makesys, this function 

							     builds the production IDL sysout.)

    (DECLARE
 (
GLOBALVARS
 LISPUSERSDIRECTORIES TESTSYS FASTCOMPILE FASTSYSLISPUSERSFILES 
			     IDLLISPUSERSDIRECTORY IDLRUNFILES COMPILE.EXT))
    (
RESETVARS
 ((LISPUSERSDIRECTORIES (
UNION
 IDLLISPUSERSDIRECTORY LISPUSERSDIRECTORIES)))
	         (
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))
						     IDLRUNFILES])
)

(RPAQQ FASTSYSLISPUSERSFILES
 (SHOW LAMBDATRAN PLOT TWODINSPECTOR FREEMENU))

(RPAQQ IDLLISPUSERSDIRECTORY
 ({QV}<IDL>RELEASE0.1>LISPUSERS>))

(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 (533 1691 (LOADIDL 543 . 1689)))))
STOP