[armedbear-cvs] r11550 - trunk/abcl/src/org/armedbear/lisp
Erik Huelsmann
ehuelsmann at common-lisp.net
Wed Jan 7 21:14:24 UTC 2009
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.
More information about the armedbear-cvs
mailing list