(PROGN (DEFCLASS ROCKSTAR (FIRST-NAME LAST-NAME)
         (LIST (%FIRST-NAME :INITARG :FIRST-NAME :ACCESSOR ROCKSTAR-FIRST-NAME)
               (%LAST-NAME :INITARG :LAST-NAME :ACCESSOR ROCKSTAR-LAST-NAME) NON-INHERITED-SLOTS)
         (:DOCUMENTATION "test"))
       
       (DEFMETHOD FIRST-NAME ((OBJ ROCKSTAR)) (FIRST-NAME (ROCKSTAR-FIRST-NAME OBJ)))
       
       (DEFMETHOD LAST-NAME ((OBJ ROCKSTAR)) (LAST-NAME (ROCKSTAR-LAST-NAME OBJ)))
       
       (DEFMETHOD (SETF FIRST-NAME) (VAL (OBJ ROCKSTAR)) (SETF (ROCKSTAR-FIRST-NAME OBJ) VAL))
       
       (DEFMETHOD (SETF LAST-NAME) (VAL (OBJ ROCKSTAR)) (SETF (ROCKSTAR-LAST-NAME OBJ) VAL)))