From cd731e66e6e8d758d114ebef0bb75a98a79230ee Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 6 Mar 2008 15:36:39 +0100
Subject: DECLARE local SUPER functions IGNORABLE.

darcs-hash:4d2d95b7fcfbed689cca92e90e864cd1e421f51a
---
 Lisp/method-definition.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Lisp')

diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp
index e69f5c1..14de1e9 100644
--- a/Lisp/method-definition.lisp
+++ b/Lisp/method-definition.lisp
@@ -222,6 +222,7 @@ __super__"
                                            (find-objc-class ',(cadar lambda-list))
                                            (or ,super-args-sym
                                                (rest ,captured-args-sym)))))
+                                   (declare (ignorable (function super)))
                                    ,@body))))))))))
 
 
-- 
cgit v1.2.3