X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbyte-interp.lisp;h=36177ae01b6efe6a76a51c7fdab555a75003f9b6;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=0aa921294e3936a27ae8e9ffa1bf7f7cd79dc726;hpb=e02c32bd4d07a7d30c9a9d78be54f1f9f84f9877;p=sbcl.git

diff --git a/src/code/byte-interp.lisp b/src/code/byte-interp.lisp
index 0aa9212..36177ae 100644
--- a/src/code/byte-interp.lisp
+++ b/src/code/byte-interp.lisp
@@ -1013,7 +1013,7 @@
 ;;; Call a function with some arguments popped off of the interpreter
 ;;; stack, and restore the SP to the specifier value.
 (defun byte-apply (function num-args restore-sp)
-  (declare (function function) (type index num-args))
+  (declare (type function function) (type index num-args))
   (let ((start (- (current-stack-pointer) num-args)))
     (declare (type stack-pointer start))
     (macrolet ((frob ()