From 5d85955361122f9862d28af23a29a2d146a360ce Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 5 Feb 2008 20:25:04 +0100
Subject: Generally declare foreign slots as SLOT-BOUNDP.

darcs-hash:b1e855f149754953d120b267b13e5623253d5c65
---
 Lisp/class-definition.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Lisp/class-definition.lisp')

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)
-- 
cgit v1.2.3