1 files changed, 0 insertions, 55 deletions
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp
index 855ac0da..ecf4963d 100644
--- a/src/boot/initial-env.lisp
+++ b/src/boot/initial-env.lisp
@@ -54,58 +54,3 @@
 	   (progn
 	     (setq *read-default-float-format* 'double-float)
 	     (setq *load-verbose* nil)))
-
-;## need the conditional here so it appears in boottran
-#+:ieee-floating-point (defparameter $ieee t)
-#-:ieee-floating-point (defparameter $ieee nil)
-
-(defvar *lisp-bin-filetype* "o")
-
-(defvar *lisp-source-filetype* "lisp")
-
-(defun shoeprettyprin1 (x &optional (stream *standard-output*))
-  (let ((*print-pretty* t)
-        (*print-array* t)
-        (*print-circle* t)
-        (*print-level* nil)
-        (*print-length* nil))
-    (prin1 x stream)))
- 
-(defun reallyprettyprint (x &optional (stream *terminal-io*))
-  (shoeprettyprin1 x stream) (terpri stream))
- 
-(defun shoeprettyprin0 (x &optional (stream *standard-output*))
-  (let ((*print-pretty* nil)
-        (*print-array* t)
-        (*print-circle* t)
-        (*print-level* nil)
-        (*print-length* nil))
-    (prin1 x stream)))
- 
-(defun shoenotprettyprint (x &optional (stream *terminal-io*))
-  (shoeprettyprin0 x stream) 
-  (terpri stream))
-
-(defun strpos (what in start dontcare)
-  (setq what (string what) in (string in))
-  (if dontcare
-      (progn 
-	(setq dontcare (character dontcare))
-	(search what in :start2 start
-		:test #'(lambda (x y) (or (eql x dontcare)
-					  (eql x y)))))
-    (search what in :start2 start)))
- 
-
-(defun strposl (table cvec sint item)
-  (setq cvec (string cvec))
-  (if (not item)
-      (position table cvec 
-		:test #'(lambda (x y) (position y x))
-		:start sint)
-    (position table cvec 
-	      :test-not #'(lambda (x y) (position y x))
-              :start sint)))
- 
-(defun |shoeReadLisp| (s n)
-  (multiple-value-list (read-from-string s nil nil :start n)))