X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=b09d1f0c91b5cee4187ac6ded3de1d9306cd9a7c;hb=34e8e7fd14989e1c86e9408733b4a73c46dd0a92;hp=8c5235a52dc49adf4062c0f714aa05c3cdcf7a85;hpb=0c9dcfb55e73398a3df8b1cc26d601b45685f29f;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index 8c5235a..b09d1f0 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -380,6 +380,7 @@ GET-SETF-EXPANSION directly."
 	 (error "ill-formed DEFSETF for ~S" access-fn))))
 
 (defun %defsetf (orig-access-form num-store-vars expander)
+  (declare (type function expander))
   (let (subforms
 	subform-vars
 	subform-exprs