summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
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)))