(defslot-presentation has-very-many-slot-presentation (has-many-slot-presentation)
((number-to-display :accessor number-to-display :initarg :number-to-display :initform 10)
(current :accessor current :initform 0)
(defslot-presentation has-very-many-slot-presentation (has-many-slot-presentation)
((number-to-display :accessor number-to-display :initarg :number-to-display :initform 10)
(current :accessor current :initform 0)