From 3dc931431a122de70b9c1d2d7b7bd7becfc46d7f Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 15:45:39 +0100 Subject: Minor cleanups. darcs-hash:8202cbfdf90281074ec97355c948315e0151cf0b --- Lisp/class-definition.lisp | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'Lisp/class-definition.lisp') diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp index c09c7be..dcb27d5 100644 --- a/Lisp/class-definition.lisp +++ b/Lisp/class-definition.lisp @@ -193,13 +193,11 @@ (defmethod c2mop:slot-makunbound-using-class ((class objective-c-class) instance - effective-slot-definition) + (effective-slot-definition + foreign-effective-slot-definition)) (declare (ignore instance)) - (etypecase effective-slot-definition - (c2mop:standard-effective-slot-definition (call-next-method)) - (foreign-effective-slot-definition - (cerror "Continue without doing anything" - "Tried to SLOT-MAKUNBOUND a foreign slot")))) + (cerror "Continue without doing anything" + "Tried to SLOT-MAKUNBOUND a foreign slot")) (defmethod c2mop:compute-slots ((class objective-c-class)) @@ -258,8 +256,9 @@ (unless (eq (intern (symbol-name name) '#:objective-c-classes) name) (setf (find-class name) class) (setf (find-class (intern (symbol-name (class-name metaclass)))) - metaclass) - class))) + metaclass)) + (%objcl-class-set-backed-by-lisp-class new-class-pointer 1) + class)) (defmethod make-instance ((class objective-c-meta-class) -- cgit v1.2.3