;;; -*- LISP -*-
;;; Init file for dumping out a new version of INQUIR.

(COMMENT) ;magic

(PROGN (CLOSE (PROG1 INFILE (INPUSH -1)))      ; Close this init file

       (LOAD "DSK: INQUIR; INQUIR FASL")

       (SETQ BASE 10. IBASE 10. *NOPOINT ())

       (DEFPROP DEBUG ((DSK LIBLSP) DEBUG FASL) AUTOLOAD)

       (FORMAT T "~&Dumping: Inquire.~A" (GET 'INQUIR 'VERSION))

       (SSTATUS TOPLEVEL '(TOPLEVEL))		; Init our toplevel
       (SSTATUS FEATURE NOLDMSG)		; No load messages after dump
       (SETQ GC-OVERFLOW '(LAMBDA (X) T))	; Prevent GC-OVERFLOW lossage

       (ALLOC '(LIST   60000.))			; Set GC parameters
       (ALLOC '(SYMBOL 50000.))
       (ALLOC '(FIXNUM 10000.))

       (GCTWA)					; Reclaim worthless symbols
       (GC)					; GC cruft made during dump

       (SSTATUS FLUSH T)			; Share with system LISP
       (SUSPEND ":KILL "
		(LIST '(DSK INQUIR) 'INQBIN (GET 'INQUIR 'VERSION)))	; Dump

       ((LAMBDA (FILENAME)
	  (COND (FILENAME 
		 (COND ((NOT (ERRSET (PROGN
				      (FORMAT T "~&Loading fix file ~A~%"
					      (NAMESTRING FILENAME))
				      (LOAD FILENAME))
				     T))
			(FORMAT T "~&;Bug in patch load. Please report this."))))))
	(PROBEF (LIST '(DSK INQUIR) 'INQFIX (GET 'INQUIR 'VERSION))))

       (TOPLEVEL))
