summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-05 18:10:16 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-05 18:10:16 +0100
commit7882cced26764947cc3606f22f80ae00968a373e (patch)
tree0fe846fc789f5ab59d05ca18dce1ac4c2c9a1e2e /Lisp
parent114e11ad44475f05c9108c97b38d6f4f0b703141 (diff)
Fix a subtle compilation phase problem.
darcs-hash:c9d6ba6df250ee32e7855c971e7e537ebf9a7dc6
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/data-types.lisp18
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)))