X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdisassem.lisp;fp=src%2Fcompiler%2Fdisassem.lisp;h=3219494ebcf7999a49fd0d3914fb5ab9f2d0a8cb;hb=148e3820ad314a9b59d0133c1d60eaac4af9118b;hp=5dbf562ce4c2ddb90ac9d44b8c848d76120a50fa;hpb=0957d59ccfaf3db9aaf79a7f4909a40ea0ca0dcd;p=sbcl.git

diff --git a/src/compiler/disassem.lisp b/src/compiler/disassem.lisp
index 5dbf562..3219494 100644
--- a/src/compiler/disassem.lisp
+++ b/src/compiler/disassem.lisp
@@ -1217,6 +1217,7 @@
       (cons car cdr)))
 
 (defun sharing-mapcar (fun list)
+  (declare (type function fun))
   #!+sb-doc
   "A simple (one list arg) mapcar that avoids consing up a new list
   as long as the results of calling FUN on the elements of LIST are