X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fassem.lisp;h=e86363335ac92d4712cfaa334cc2a81e6ff1ec21;hb=b387f6ae447b55e203f47fc40af4a36e756fe345;hp=575ecd89419ad37aed84828311bb58a74e843aa6;hpb=cf607a404d7518e8a18c9e362913f370eb9a5e38;p=sbcl.git

diff --git a/src/compiler/assem.lisp b/src/compiler/assem.lisp
index 575ecd8..e863633 100644
--- a/src/compiler/assem.lisp
+++ b/src/compiler/assem.lisp
@@ -1332,6 +1332,7 @@ p	    ;; the branch has two dependents and one of them dpends on
 ;;; calling FUNCTION once on the entire compacted segment buffer. --
 ;;; WHN 19990322
 (defun on-segment-contents-vectorly (segment function)
+  (declare (type function function))
   (let ((buffer (segment-buffer segment))
 	(i0 0))
     (flet ((frob (i0 i1)