diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 20:25:04 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-05 20:25:04 +0100 |
| commit | 5d85955361122f9862d28af23a29a2d146a360ce (patch) | |
| tree | 2a620781eae8d26ffc3a8c42bcc9b5f672a215c6 | |
| parent | 074be8bdfc44a29ae54497da0ee064117f5a1530 (diff) | |
Generally declare foreign slots as SLOT-BOUNDP.
darcs-hash:b1e855f149754953d120b267b13e5623253d5c65
| -rw-r--r-- | Lisp/class-definition.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index c44f556..130677f 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -186,7 +186,8 @@ instance (effective-slot-definition foreign-effective-slot-definition)) - (declare (ignore instance))) + (declare (ignore instance)) + t) (defmethod c2mop:slot-makunbound-using-class ((class objective-c-class) |