X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Frepresent.lisp;h=f8151f2411d4ae96c091d0f2dc61ed63b4449f83;hb=e411bd41397e1df2423838a4f9c2fdaa27727e93;hp=ad0add77c0594c0bd592a9dcb6a0decbf170af7c;hpb=0bca0cb1bf5ce5572ab5cd7ba59f87fed1f2edb0;p=sbcl.git

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index ad0add7..f8151f2 100644
--- a/src/compiler/represent.lisp
+++ b/src/compiler/represent.lisp
@@ -227,6 +227,7 @@
 (defun add-representation-costs (refs scs costs
 				      ops-slot costs-slot more-costs-slot
 				      write-p)
+  (declare (type function ops-slot costs-slot more-costs-slot))
   (do ((ref refs (tn-ref-next ref)))
       ((null ref))
     (flet ((add-costs (cost)