[armedbear-cvs] r13725 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Fri Jan  6 14:14:08 2012
New Revision: 13725

Log:
Patch by Rudi Schlatte: Move EqualSpecializerObject to clos.lisp.

Deleted:
   trunk/abcl/src/org/armedbear/lisp/EqualSpecializerObject.java
Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Fri Jan  6 06:35:39 2012	(r13724)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Fri Jan  6 14:14:08 2012	(r13725)
@@ -1189,6 +1189,10 @@
               (setf (std-slot-value instance 'sys::object) object)
               instance))))
 
+(defun eql-specializer-object (eql-specializer)
+  (check-type eql-specializer eql-specializer)
+  (std-slot-value eql-specializer 'sys::object))
+
 ;; MOP (p. 216) specifies the following reader generic functions:
 ;;   generic-function-argument-precedence-order
 ;;   generic-function-declarations