X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir2opt.lisp;h=6c0e764d0ce5c441643c46c489548af1379a4331;hb=da5a7ccd58c2bf3c5287a11fb41e01403e5745e8;hp=9919074ac7ae493f0f0202c7506ea681e0c907b1;hpb=5cf3c4259d529e180d75d4d140f344e600d2b06b;p=sbcl.git

diff --git a/src/compiler/ir2opt.lisp b/src/compiler/ir2opt.lisp
index 9919074..6c0e764 100644
--- a/src/compiler/ir2opt.lisp
+++ b/src/compiler/ir2opt.lisp
@@ -181,7 +181,7 @@
     (maybe-convert-one-cmov 2block)))
 
 (defun delete-unused-ir2-blocks (component)
-  (declare (component component))
+  (declare (type component component))
   (let ((live-2blocks (make-hash-table)))
     (labels ((mark-2block (2block)
                (declare (type ir2-block 2block))