X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-tran.lisp;h=26d7855d2402968264457b01e47f4092d5388572;hb=dcd86042bba514f5dfc39246de9cdbb030648569;hp=43a7b116f6b1b454afabebe370ca330495e1eef2;hpb=1907ad030ca773162bcd9ff90fdc485a035591f4;p=sbcl.git

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index 43a7b11..26d7855 100644
--- 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))