From 5d85955361122f9862d28af23a29a2d146a360ce Mon Sep 17 00:00:00 2001 From: Matthias Benkard 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') 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