;;; -*- Mode: lisp; Package: tape; Base: 10; Readtable: Common-Lisp -*-
;;;
;;; Micro-compiler installation form for 3.0 -dg 7/30/86
;;;
;;; 

(distribution-installation-forms 
  (let ((*host* (send (fs:get-pathname-host "SYS") :host)))
    (declare (special *host*))
    (do ()
	(nil)
      (tv:choose-variable-values '((*host* "Host to restore sources onto" :host))
				 :label "Choose Microcompiler installation parameters")
      (cond ((not *sourcep*)
	     (return t))
	    ((si:parse-host *host* t)
	     (return t))
	    ('else
	     (beep)
	     (format t "~&Unknown host specified ~S~%" *host*))))
    (format t "~&Restoring Micro-compiler binaries to host ~A~%" *host*)
    (restore-files :transform #'(lambda (plist)
				  (send (car plist) :new-pathname :host *host*)))
    (format t "~&Installation Complete.~@
               Do (LOAD-PATCHES 'MICRO-COMPILATION-TOOLS) to enable microcompiler.~%")))