diff options
Diffstat (limited to 'src/boot/initial-env.lisp')
-rw-r--r-- | src/boot/initial-env.lisp | 11 |
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)) |