X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpprint.lisp;h=0a5995101c0111425f59b8a3587db5833b3cdf24;hb=3bd7a97d1b11a2b0aee086ef211cae807f3dfc35;hp=43c66d7d8efcd0b2ef1b3bd6d7880594b5590ea1;hpb=0b5610d8a220a4b20cbeac958953ca4d67c00038;p=sbcl.git

diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
index 43c66d7..0a59951 100644
--- a/src/code/pprint.lisp
+++ b/src/code/pprint.lisp
@@ -961,7 +961,7 @@
 	     (stringp array)
 	     (bit-vector-p array))
 	 (output-ugly-object array stream))
-	((and *print-readably* (not (eq (array-element-type array) 't)))
+	((and *print-readably* (not (eq (array-element-type array) t)))
 	 (let ((*print-readably* nil))
 	   (error 'print-not-readable :object array)))
 	((vectorp array)