From 0b00c2ae8f58ce6d812f6ce3fbfecc19db7ffd3f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 18 Dec 2010 19:02:56 +0000
Subject: 	* boot/initial-env.lisp (SIZE): Remove. 	(MAKE-VEC):
 Likewise. 	(MAKE-CVEC): Likewise.

---
 src/boot/initial-env.lisp | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'src/boot/initial-env.lisp')

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))
 
-- 
cgit v1.2.3