;;;; CONS-SPECIALIZER example
(defclass cons-specializer (extended-specializer)
((car :initarg :car :reader %car)))
;;;; CONS-SPECIALIZER example
(defclass cons-specializer (extended-specializer)
((car :initarg :car :reader %car)))
(eql (car obj) (%car specializer))))
;;; but this one does: it doesn't look like it here, but at issue is
;;; who is responsible for the SPECIALIZER< method for two distinct
(eql (car obj) (%car specializer))))
;;; but this one does: it doesn't look like it here, but at issue is
;;; who is responsible for the SPECIALIZER< method for two distinct
(defmethod specializer< ((s1 cons-specializer) (s2 cons-specializer) generalizer)
(declare (ignore generalizer))
(if (eql (%car s1) (%car s2))
(defmethod specializer< ((s1 cons-specializer) (s2 cons-specializer) generalizer)
(declare (ignore generalizer))
(if (eql (%car s1) (%car s2))