+ (:metaclass attributes-class))
+ (defparameter cr nil)
+
+ (defclass monitored-credit-rating (credit-rating)
+ ((level :attributes (last-checked interval date-set))
+ (cc :initarg :cc)
+ (id :attributes (verified)))
+ (:metaclass attributes-class))
+ (defparameter mcr (make-instance 'monitored-credit-rating))
+
+ (deftest attrib.mop.1
+ (progn
+ (setq cr (make-instance 'credit-rating))
+ (slot-attribute cr 'level 'date-set))
+ nil)
+
+ (deftest attrib.mop.2
+ (progn
+ (setq cr (make-instance 'credit-rating))
+ (setf (slot-attribute cr 'level 'date-set) "12/15/1990")
+ (slot-attribute cr 'level 'date-set))
+ "12/15/1990")
+
+ (deftest attrib.mop.3
+ (progn
+ (setq mcr (make-instance 'monitored-credit-rating))
+ (setf (slot-attribute mcr 'level 'date-set) "01/05/2002")
+ (slot-attribute mcr 'level 'date-set))
+ "01/05/2002")