(FILECREATED "13-Mar-87 12:09:30" {QV}<PEDERSEN>LISP>KOTO>LOADIDL.;2
 1395   

      previous date: "28-Jun-86 17:42:05" {QV}<PEDERSEN>LISP>KOTO>LOADIDL.;1)


(* Copyright (c) 1984, 1985, 1986, 1987 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: "28-Jun-86 17:41")

                                                             (* When loaded into a raw makesys, this function 

							     builds the production IDL sysout.)

    (
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.)

    (
DOFILESLOAD
 IDLRUNFILES])
)

(RPAQQ FASTSYSLISPUSERSFILES
 (CMLARRAY UNBOXEDOPS PLOT))

(RPAQQ IDLRUNFILES
 (ARRAYSUPPORT BLAS MATRIXOPS ARRAYSORTER FLOATARRAYSORTER MEDIANSMOOTHER CDFS 
				   EARRAY IDLARRAY IDLDEMO))
(DECLARE: DOCOPY DONTEVAL@LOAD 
(LOADIDL)
)
(PUTPROPS LOADIDL COPYRIGHT ("Xerox Corporation" 1984 1985 1986 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (419 1060 (LOADIDL 429 . 1058)))))
STOP