X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fvector.lisp;h=76179ea459186df1fc1ba629ac9b6fb082eb852d;hb=416152f084604094445a758ff399871132dff2bd;hp=4e2b10d599115309e0cc8dfabba3b049d553c318;hpb=54a2e62234dc9a399ae12e56fe212d2137b43556;p=sbcl.git

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index 4e2b10d..76179ea 100644
--- a/src/pcl/vector.lisp
+++ b/src/pcl/vector.lisp
@@ -520,7 +520,7 @@
 		     ,parameter)
 		    ,new-value))
 	    (:boundp
-	     'T)))
+	     t)))
 	(let* ((parameter-entry (assq parameter slots))
 	       (slot-entry      (assq slot-name (cdr parameter-entry)))
 	       (position (posq parameter-entry slots))