From f92eae85ac10961c5c605593767689fa9a77efcd Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 3 Aug 2007 21:32:22 +0200
Subject: Add generic function OBJCL-EQL.

darcs-hash:278d6402c005d66a4a9fa0951f0a9b34f655d060
---
 objcl.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

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)
-- 
cgit v1.2.3