1 files changed, 0 insertions, 67 deletions
diff --git a/src/interp/bootlex.lisp b/src/interp/bootlex.lisp
index b944c653..718c3058 100644
--- a/src/interp/bootlex.lisp
+++ b/src/interp/bootlex.lisp
@@ -80,73 +80,6 @@
      (when (or |$PrettyPrint| (not (is-console st)))
            (print-full body st) (force-output st))))
 
-(defun boot-parse-1 (in-stream
-              &aux
-             (Echo-Meta nil)
-             (current-fragment nil)
-             ($INDEX 0)
-             ($LineList nil)
-             ($EchoLineStack nil)
-             ($preparse-last-line nil)
-             ($BOOT T)
-             (*EOF* NIL)
-             (OPTIONLIST NIL))
-  (declare (special echo-meta *comp370-apply* *EOF* File-Closed
-                    $index $linelist $echolinestack $preparse-last-line))
-  (init-boot/spad-reader)
-  (let* ((Boot-Line-Stack (PREPARSE in-stream))
-         (parseout (prog2 (|PARSE-Expression|) (pop-stack-1)) ) )
-    ;(setq parseout (|new2OldLisp| parseout))
-    ; (setq parseout (DEF-RENAME parseout))
-    ; (DEF-PROCESS parseout)
-    parseout))
-
-(defun boot (&optional
-              (*boot-input-file* nil)
-              (*boot-output-file* nil)
-             &aux
-             (Echo-Meta t)
-             ($BOOT T)
-             (XCape #\_)
-             (File-Closed NIL)
-             (*EOF* NIL)
-             (OPTIONLIST NIL)
-             (*fileactq-apply* (function print-defun))
-             (*comp370-apply* (function print-defun)))
-  (declare (special echo-meta *comp370-apply* *EOF* File-Closed XCape))
-  (setq |$normalizeTree| t)
-  (setq |$InteractiveMode| NIL)
-  (init-boot/spad-reader)
-  (with-open-stream
-    (in-stream (if *boot-input-file* 
-		   (open *boot-input-file* :direction :input)
-		 |$InputStream|))
-    (initialize-preparse in-stream)
-    (with-open-stream
-      (out-stream (if *boot-output-file*
-                      (open *boot-output-file* :direction :output)
-		    (make-broadcast-stream |$OutputStream|)))
-      (when *boot-output-file*
-         (format out-stream "~&;;; -*- Mode:Lisp; Package:Boot  -*-~%~%")
-         (print-package "BOOT"))
-      (loop (if (and (not File-Closed)
-                     (setq Boot-Line-Stack (PREPARSE in-stream)))
-                (progn
-                       (|PARSE-Expression|)
-                       (let ((parseout (pop-stack-1)) )
-                         (setq parseout (|new2OldLisp| parseout))
-                         (setq parseout (DEF-RENAME parseout))
-                         (let ((|$OutputStream| out-stream))
-                           (DEF-PROCESS parseout))
-                         (format out-stream "~&")
-                         (if (null parseout) (ioclear)) ))
-                (return nil)))
-      (if *boot-input-file*
-          (format out-stream ";;;Boot translation finished for ~a~%"
-                  (namestring *boot-input-file*)))
-      (IOClear in-stream out-stream)))
-  T)
-
 (defun spad (&optional
               (*spad-input-file* nil)
               (*spad-output-file* nil)