1.0.27.37: fix host constant leaks

[sbcl.git] / src / compiler / generic / vm-tran.lisp

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index 43a7b11..26d7855 100644 (file)
--- a/src/compiler/generic/vm-tran.lisp
+++ b/src/compiler/generic/vm-tran.lisp
@@ -643,7 +643,7 @@
     ((def (name kind width signedp)
        (let ((type (ecase signedp
                      ((nil) 'unsigned-byte)
-                     (t 'signed-byte))))
+                     ((t) 'signed-byte))))
          `(progn
             (defknown ,name (integer (integer 0)) (,type ,width)
                       (foldable flushable movable))