diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-14 21:13:01 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-14 21:13:01 +0100 |
| commit | b3b8aeba34e58c0fd720018222d54e15ef2d5b9a (patch) | |
| tree | 142a1e451e0c06ce29e549978eced7ab89025705 | |
| parent | 8fbe183b787c03e7a6ecb2f9a35513d1f0fc6a26 (diff) | |
Avoid a bunch of compilation warnings.
darcs-hash:80fed30cbc718deff925dd9d55988490fef422b6
| -rw-r--r-- | Lisp/class-definition.lisp | 8 |
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)) |