Fix a subtle compilation phase problem.

darcs-hash:c9d6ba6df250ee32e7855c971e7e537ebf9a7dc6

1 files 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)))