* boot/initial-env.lisp (SIZE): Remove.

	(MAKE-VEC): Likewise.
	(MAKE-CVEC): Likewise.

1 files changed, 0 insertions, 11 deletions

diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp
index df85b398..31024006 100644
--- a/src/boot/initial-env.lisp
+++ b/src/boot/initial-env.lisp
@@ -77,12 +77,6 @@
 (defun setdifference (x y)
   (set-difference x y))
 
-(defun make-cvec (sint)
-  (make-string sint))
-
-(defun MAKE-VEC (n) 
-  (make-array n))
-
 (defun |shoeInputFile| (filespec )
   (open filespec :direction :input :if-does-not-exist nil))
 
@@ -195,11 +189,6 @@
 (defun bvec-setelt (bv i x)
   (setf (sbit bv i) x))
 
-(defun size (l)
-  (cond ((vectorp l) (length l))
-        ((consp l) (list-length l))
-        (t 0)))
-
 (defun identp (a) 
   (and (symbolp a) a))