X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fconstraint.lisp;h=584f65601af358ed16edbae8069628e34d87d307;hb=fdf07da187cb31fd5bdd872c73245fd72877b1a1;hp=52b6ee9d660df4073edbb66dc9441bd56167425d;hpb=334af30b26555f0bf706f7157b399bdbd4fad548;p=sbcl.git

diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index 52b6ee9..584f656 100644
--- a/src/compiler/constraint.lisp
+++ b/src/compiler/constraint.lisp
@@ -375,7 +375,7 @@
 		    (csubtypep (specifier-type 'null) not-res)
 		    (eq (continuation-asserted-type cont) *wild-type*))
 	       (setf (node-derived-type ref) *wild-type*)
-	       (change-ref-leaf ref (find-constant 't)))
+	       (change-ref-leaf ref (find-constant t)))
 	      (t
 	       (derive-node-type ref (or (type-difference res not-res)
 					 res)))))))