0.8.9.46:

[sbcl.git] / src / compiler / ltn.lisp

diff --git a/src/compiler/ltn.lisp b/src/compiler/ltn.lisp
index 794e135..552f50d 100644 (file)
--- a/src/compiler/ltn.lisp
+++ b/src/compiler/ltn.lisp
@@ -434,6 +434,7 @@
 (defun template-args-ok (template call safe-p)
   (declare (type template template)
           (type combination call))
+  (declare (ignore safe-p))
   (let ((mtype (template-more-args-type template)))
     (do ((args (basic-combination-args call) (cdr args))
         (types (template-arg-types template) (cdr types)))