X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Farray.lisp;h=5f6d50e1fae72413e8cdad8ddaaaa9d809295040;hb=dc0c7df5c3abdcde2f770ee7f379da3d32fb97d6;hp=a90a4bc4bdcfeeb5d98f89770211c1c64187190e;hpb=ef179f90931e56d0dbe88d625e1068e4154ffe85;p=jscl.git

diff --git a/src/array.lisp b/src/array.lisp
index a90a4bc..5f6d50e 100644
--- a/src/array.lisp
+++ b/src/array.lisp
@@ -78,6 +78,8 @@
 ;;; FIXME: should take optional min-extension.
 ;;; FIXME: should use fill-pointer instead of the absolute end of array
 (defun vector-push-extend (new vector)
+  (unless (vectorp array)
+    (error "~S is not a vector." array))  
   (let ((size (storage-vector-size vector)))
     (resize-storage-vector vector (1+ size))
     (aset vector size new)