From: David Vázquez <davazp@gmail.com>
Date: Fri, 24 May 2013 01:03:17 +0000 (+0100)
Subject: Fix typo
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=576d3b8279caad3cee8ae465535d3a5e715cdc92;p=jscl.git

Fix typo
---

diff --git a/src/array.lisp b/src/array.lisp
index 5f6d50e..4f4b690 100644
--- a/src/array.lisp
+++ b/src/array.lisp
@@ -78,8 +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))  
+  (unless (vectorp vector)
+    (error "~S is not a vector." vector))  
   (let ((size (storage-vector-size vector)))
     (resize-storage-vector vector (1+ size))
     (aset vector size new)