Ignore:
Timestamp:
01/06/12 22:14:08 (10 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13715 r13725  
    11891189              (setf (std-slot-value instance 'sys::object) object)
    11901190              instance))))
     1191
     1192(defun eql-specializer-object (eql-specializer)
     1193  (check-type eql-specializer eql-specializer)
     1194  (std-slot-value eql-specializer 'sys::object))
    11911195
    11921196;; MOP (p. 216) specifies the following reader generic functions:
Note: See TracChangeset for help on using the changeset viewer.