0.pre7.2:

[sbcl.git] / src / compiler / constraint.lisp

diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index 52b6ee9..584f656 100644 (file)
--- 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)))))))