diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp index 0efa45e3d52857b286380a7e99b10afb482defe4..2148c47c128430c05b6dc8342caf823e99eb4d7c 100644 --- a/pcl/std-class.lisp +++ b/pcl/std-class.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.73 2004/07/09 22:00:30 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.74 2004/09/25 22:09:29 rtoy Exp $") (in-package :pcl) @@ -348,7 +348,10 @@ (defmethod shared-initialize :after ((specl eql-specializer) slot-names &key) (declare (ignore slot-names)) - (setf (slot-value specl 'type) `(eql ,(specializer-object specl)))) + (setf (slot-value specl 'type) `(eql ,(specializer-object specl))) + ;; Tell the type system about this eql specializer type. + (setf (info type translator specl) + (constantly (kernel:make-member-type :members (list (specializer-object specl))))))