'with' bug

[ricks%shambhala.Berkeley.EDU@BERKELEY.EDU]

'expand-with-slots' uses 'slotd-accessor', but it is not
defined anywhere.....  It looks like this was not updated
when the ability to have multiple accessor functions on each
slot was added.

Try this:

(defclass bob () (a b) (:accessor-prefix ||) (:constructor make-bob))

(defmethod fred ((self bob)) (with (self) a))

(fred (make-bob))

;;; error ;;; pcl::slotd-accessor is undefined


		Rick Spickelmier
		UC Berkeley