From b3b8aeba34e58c0fd720018222d54e15ef2d5b9a Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 14 Feb 2008 21:13:01 +0100 Subject: Avoid a bunch of compilation warnings. darcs-hash:80fed30cbc718deff925dd9d55988490fef422b6 --- Lisp/class-definition.lisp | 8 ++++++++ 1 file changed, 8 insertions(+) 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)) -- cgit v1.2.3