[armedbear-cvs] r11550 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Jan  7 21:14:23 2009
New Revision: 11550

Log:
Silence compiler warnings about deleting "Unused function CALL-NEXT-METHOD": it's being added
even if only NEXT-METHOD-P is called.

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Wed Jan  7 21:14:23 2009
@@ -1580,6 +1580,7 @@
                              (funcall next-emfun (or cnm-args args))))
                        (next-method-p ()
                          (not (null next-emfun))))
+                  (declare (ignorable call-next-method next-method-p))
                   (apply #'(lambda ,lambda-list , at declarations , at body) args))))
             ((null (intersection lambda-list '(&rest &optional &key &allow-other-keys &aux)))
              ;; Required parameters only.