summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-14 21:13:01 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-14 21:13:01 +0100
commitb3b8aeba34e58c0fd720018222d54e15ef2d5b9a (patch)
tree142a1e451e0c06ce29e549978eced7ab89025705
parent8fbe183b787c03e7a6ecb2f9a35513d1f0fc6a26 (diff)
Avoid a bunch of compilation warnings.
darcs-hash:80fed30cbc718deff925dd9d55988490fef422b6
-rw-r--r--Lisp/class-definition.lisp8
1 files changed, 8 insertions, 0 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index 85f3eb6..831c09e 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -232,6 +232,8 @@
direct-default-initargs
pointer
wrapped-foreign-class)
+ (declare (ignore documentation name plist direct-superclasses direct-slots
+ direct-default-initargs pointer wrapped-foreign-class))
(call-next-method))
(defmethod reinitialize-instance ((class objective-c-class)
@@ -243,6 +245,8 @@
direct-default-initargs
pointer
wrapped-foreign-class)
+ (declare (ignore documentation name plist direct-superclasses direct-slots
+ direct-default-initargs pointer wrapped-foreign-class))
(call-next-method))
(defmethod initialize-instance ((class objective-c-meta-class)
@@ -253,6 +257,8 @@
direct-slots
direct-default-initargs
pointer)
+ (declare (ignore documentation name plist direct-superclasses direct-slots
+ direct-default-initargs pointer))
(call-next-method))
(defmethod reinitialize-instance ((class objective-c-meta-class)
@@ -263,6 +269,8 @@
direct-slots
direct-default-initargs
pointer)
+ (declare (ignore documentation name plist direct-superclasses direct-slots
+ direct-default-initargs pointer))
(call-next-method))