diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index d47b763c..72d79e12 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -962,14 +962,8 @@ (defun LIST2VEC (list) (if (consp list) - (let* ((len (length list)) - (vec (make-array len))) - (dotimes (i len) - (setf (aref vec i) (pop list))) - vec) - (coerce list 'vector))) - -(define-function 'LIST2REFVEC #'LIST2VEC) + (make-array (list-length list) :initial-contents list) + (coerce list 'vector))) ; 16.2 Accessing |