Add generic function OBJCL-EQL.

darcs-hash:278d6402c005d66a4a9fa0951f0a9b34f655d060

1 files changed, 7 insertions, 0 deletions

diff --git a/objcl.lisp b/objcl.lisp
index 49085f8..5fcafd4 100644
--- a/objcl.lisp
+++ b/objcl.lisp
@@ -48,6 +48,13 @@
                      (objcl-invoke-class-method condition "name")))))
 
 
+(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))
+
+
 (defcunion obj-data-union
   (id-val :pointer)
   (class-val :pointer)