Changeset 13725 for trunk/abcl/src/org/armedbear/lisp/clos.lisp

Timestamp:

01/06/12 22:14:08 (11 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/clos.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/clos.lisp

@@ -1189 +1189 @@
               (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: