-(format t "~&date-set: ~a" (gu:slot-attribute cr 'level 'date-set))
-(setf (gu:slot-attribute cr 'level 'date-set) "12/15/1990")
-(format t "~&date-set: ~a" (gu:slot-attribute cr 'level 'date-set))
+(format t "~&date-set: ~a" (slot-attribute cr 'level 'date-set))
+(setf (slot-attribute cr 'level 'date-set) "12/15/1990")
+(format t "~&date-set: ~a" (slot-attribute cr 'level 'date-set))