From 576d3b8279caad3cee8ae465535d3a5e715cdc92 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 24 May 2013 02:03:17 +0100 Subject: [PATCH] Fix typo --- src/array.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4