(FILECREATED "14-Feb-86 16:55:04" {QV}<IDL>SOURCES>FASTCOMPILE.;29
 2854   

      changes to:  (FNS FASTCOMPILE)

      previous date: "14-Feb-86 15:43:53" {QV}<IDL>SOURCES>FASTCOMPILE.;27)


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

(PRETTYCOMPRINT FASTCOMPILECOMS)

(RPAQQ FASTCOMPILECOMS
 ((* Sets up sysout for go-for-broke compiling - Should be loaded SYSLOAD)
			  (FNS FASTCOMPILE)
			  (FILES IDLCONFIGURATION)
			  (P (SETQ DIRECTORIES (UNION (LIST IDLFASTDIRECTORY)
						      DIRECTORIES)))
			  (PROP DATABASE FASTCOMPILE)))



(* Sets up sysout for go-for-broke compiling - Should be loaded SYSLOAD)


(DEFINEQ

(FASTCOMPILE

  [LAMBDA (FILES COMPILEOPTION DIR NODRIBBLEFLG)             (* edited: "14-Feb-86 16:50")

    (DECLARE
 (
GLOBALVARS
 IDLRUNFILES IDLFASTFILES IDLSOURCEDIRECTORY IDLFASTDIRECTORY CLISPARRAY 
			     COMPILE.EXT COMPILEIGNOREDECL LOCALVARS DWIMWAIT LISPXHIST))
    (
OR
 COMPILEOPTION (
SETQ
 COMPILEOPTION (
QUOTE
 F)))
    (if
 [
NOT
 (
EQ
 (
DIRECTORYNAME
 T T)
		       (
OR
 DIR (
SETQ
 DIR IDLFASTDIRECTORY]
	then
 (
CNDIR
 DIR)
	       (PRINTOUT T T "You are now connected to " DIR T))
                                                             (* Load up some macros)

    (
DOFILESLOAD
 (
CONS
 (
LIST
 (
QUOTE
 FROM)
				   IDLSOURCEDIRECTORY)
			   IDLFASTFILES))
    (
RESETLST
 (
RESETSAVE
 COMPILE.EXT (
PACK*
 (
QUOTE
 F)
						  COMPILE.EXT))
		[if
 (
NULL
 NODRIBBLEFLG)
		    then
 (
RESETSAVE
 (
DRIBBLE
 (
QUOTE
 {LPT}))
					(
LIST
 (
QUOTE
 DRIBBLE]
		(
PRINT
 (
DATE
)
			 T)
		(
SETQ
 FILES (
CHANGEDFILES
 FILES IDLRUNFILES DIR COMPILE.EXT))
		(PRINTOUT T T "Compilation will include: ")
		(if
 FILES
		    then
                                   (* Put out answer to the compiler Listing 

							     question--and also make sure that we don't get hung on

							     a page-hold)

			   (for
 F in
 FILES
			      do
 (
BKSYSBUF
 COMPILEOPTION)
				   (
BKSYSCHARCODE
 (
CHARCODE
 CR)))
			   (
BKSYSBUF
 " ")
			   (PRINTOUT T .PARA (
POSITION
)
				     (
LINELENGTH
)
				     FILES)
		  else
 (PRINTOUT T "No files"))
		(PRINTOUT T T T)
		(
RESETVARS
 ((COMPILEIGNOREDECL T)
			      (FASTCOMPILE
 T)
			      (
LOCALVARS
 T)
			      (DWIMWAIT 0)
			      TESTSYS LISPXHIST)
			     (for
 F in
 FILES
				do
 (
CLRHASH
 CLISPARRAY)
				     (
PRINT
 (
TCOMPL
 (
PRINT
 F T))
					      T)
				     (
TERPRI
 T)))
		(
PRINT
 (
DATE
)
			 T)
		FILES])
)
(FILESLOAD IDLCONFIGURATION)
(SETQ DIRECTORIES (UNION (LIST IDLFASTDIRECTORY)
			 DIRECTORIES))

(PUTPROPS FASTCOMPILE DATABASE
 NO)
(PUTPROPS FASTCOMPILE COPYRIGHT ("Xerox Corporation" 1984 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (665 2626 (FASTCOMPILE 675 . 2624)))))
STOP