X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Farray-tran.lisp;h=05e57ab33c496e9c0f4ca899d11b9963b2ce2898;hb=dfa55a883f94470267b626dae77ce7e7dfac3df6;hp=945e154da6cd131d8638e5ef1997610ec7d80676;hpb=79953929196409f21fe505b29b15d2a9281884b7;p=sbcl.git

diff --git a/src/compiler/array-tran.lisp b/src/compiler/array-tran.lisp
index 945e154..05e57ab 100644
--- a/src/compiler/array-tran.lisp
+++ b/src/compiler/array-tran.lisp
@@ -108,7 +108,7 @@
 		     (unsupplied-or-nil fill-pointer))))
     (specifier-type
      `(,(if simple 'simple-array 'array)
-       ,(cond ((not element-type) 't)
+       ,(cond ((not element-type) t)
 	      ((constant-continuation-p element-type)
 	       (continuation-value element-type))
 	      (t