1 files changed, 0 insertions, 11 deletions
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp
index ef82d033..6aa71a2b 100644
--- a/src/boot/initial-env.lisp
+++ b/src/boot/initial-env.lisp
@@ -63,11 +63,6 @@
 
 (defvar *lisp-source-filetype* "lisp")
 
-(defmacro |shoeOpenOutputFile|
-  (stream fn prog)
-    `(with-open-file (,stream ,fn :direction :output
-       :if-exists :supersede) ,prog))
-
 (defun shoeprettyprin1 (x &optional (stream *standard-output*))
   (let ((*print-pretty* t)
         (*print-array* t)
@@ -91,9 +86,6 @@
   (shoeprettyprin0 x stream) 
   (terpri stream))
 
-(defun |shoePLACEP| (item) 
-  (eq item nil))
-
 (defun MAKE-HASHTABLE (id1)
   (let ((test (case id1
                     ((EQ ID) #'eq)
@@ -144,6 +136,3 @@
  
 (defun |shoeReadLisp| (s n)
   (multiple-value-list (read-from-string s nil nil :start n)))
-
-(defun |last| (x)
-  (car (last x)))