From 7882cced26764947cc3606f22f80ae00968a373e Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 5 Mar 2008 18:10:16 +0100 Subject: Fix a subtle compilation phase problem. darcs-hash:c9d6ba6df250ee32e7855c971e7e537ebf9a7dc6 --- Lisp/data-types.lisp | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index e44dd88..7c09306 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -226,10 +226,6 @@ and development for portable programs as well). => T")) -(defmethod objective-c-class-registered-p ((class objective-c-class)) - (foreign-class-registered-p class)) - - (defclass objective-c-class (standard-class c-pointer-wrapper) ((registered-p :type boolean :accessor foreign-class-registered-p @@ -257,6 +253,10 @@ Objective-C runtime. __id__, __objective-c-class-registered-p__")) +(defmethod objective-c-class-registered-p ((class objective-c-class)) + (foreign-class-registered-p class)) + + (defclass objective-c-meta-class (objective-c-class) ((fake-p :type boolean :initform nil @@ -514,7 +514,9 @@ seems like an acceptable trade-off. (defgeneric objcl-eql (obj1 obj2)) -(defmethod objcl-eql ((obj1 c-pointer-wrapper) (obj2 c-pointer-wrapper)) - (pointer-eq (pointer-to obj1) (pointer-to obj2))) -(defmethod objcl-eql (obj1 obj2) - (eql obj1 obj2)) + +(with-compilation-unit () + (defmethod objcl-eql ((obj1 c-pointer-wrapper) (obj2 c-pointer-wrapper)) + (pointer-eq (pointer-to obj1) (pointer-to obj2))) + (defmethod objcl-eql (obj1 obj2) + (eql obj1 obj2))) -- cgit v1.2.3