X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Farray.lisp;h=a15b4eb69b14369824285fbc449f03a6c2c62d37;hb=81003ba7f1fcb0d2e4232433665725f9286a958e;hp=db7ad21d3bd237e97ac68510346d6a42261757c3;hpb=21d052d84e68ca27e1815d2c8a9484da8f7beb7a;p=jscl.git

diff --git a/src/array.lisp b/src/array.lisp
index db7ad21..a15b4eb 100644
--- a/src/array.lisp
+++ b/src/array.lisp
@@ -13,6 +13,8 @@
 ;; You should have received a copy of the GNU General Public License
 ;; along with JSCL.  If not, see <http://www.gnu.org/licenses/>.
 
+(/debug "loading array.lisp!")
+
 (defun upgraded-array-element-type (typespec &optional environment)
   (declare (ignore environment))
   (if (eq typespec 'character)
@@ -90,12 +92,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