X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1util.lisp;h=257fbe5505f0089a81eadd79f4f36f72812eb08a;hb=49e8403800426f37a54d9b87353a31af36e7af40;hp=f27b60d37ae9164be4b89dd55c42b3c8a7373aa4;hpb=8e73cf67d15bf0aeed37ac38d309aa9048b29573;p=sbcl.git

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index f27b60d..257fbe5 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -429,7 +429,7 @@
     (lvar-dynamic-extent it)))
 
 (defun flushable-combination-p (call)
-  (declare (combination call))
+  (declare (type combination call))
   (let ((kind (combination-kind call))
         (info (combination-fun-info call)))
     (when (and (eq kind :known) (fun-info-p info))