summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 20:25:04 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-05 20:25:04 +0100
commit5d85955361122f9862d28af23a29a2d146a360ce (patch)
tree2a620781eae8d26ffc3a8c42bcc9b5f672a215c6
parent074be8bdfc44a29ae54497da0ee064117f5a1530 (diff)
Generally declare foreign slots as SLOT-BOUNDP.
darcs-hash:b1e855f149754953d120b267b13e5623253d5c65
-rw-r--r--Lisp/class-definition.lisp3
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)