From 9375ef50cfc7a1804bb1bf3766ee79874e8ae2b6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 19 Jun 2013 01:31:17 +0200 Subject: [PATCH] Simpler VECTOR definition --- src/array.lisp | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/src/array.lisp b/src/array.lisp index db7ad21..20912c2 100644 --- a/src/array.lisp +++ b/src/array.lisp @@ -90,12 +90,7 @@ (and (arrayp x) (null (cdr (array-dimensions x))))) (defun vector (&rest objects) - (let* ((length (length objects)) - (array (make-array length :element-type t)) - (i 0)) - (dolist (element objects array) ;; poor-man's :initial-contents - (aset array i element) - (incf i)))) + (list-to-vector objects)) ;;; FIXME: should take optional min-extension. ;;; FIXME: should use fill-pointer instead of the absolute end of array -- 1.7.10.4