Thank you! Added and committed. -Ian On Mar 25, 2008, at 6:40 AM, [EMAIL PROTECTED] wrote:
+(deftest slot-unbound + (progn + (defclass class-one () + (slot1 slot2) + (:metaclass persistent-metaclass)) + (defmethod slot-unbound (class (instance class-one) + (slot-name (eql 'slot2))) + t) + (let ((inst (make-instance 'class-one))) + (values + (signals-specific-condition (unbound-slot) + (slot-value inst 'slot1)) + (is-not-null (eq t (slot-value inst 'slot2)))))) + t t)
_______________________________________________ elephant-devel site list elephant-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/elephant-devel
