anchor.diff:                               expected-type
                                expected-read-only-p)
                      (rove:ok (slot-description-info-p slot))
  +                   (rove:ok (slot-description-complex-p slot))
                      (rove:ok (equal (slot-description-name slot) expected-slot-name))
                      (rove:ok (expected-point-position-p (slot-description-point slot)
                                                          expected-point-line-number
  
positive.code:                 :struct-name-and-options-point
                  :struct-slot-descriptions
                  :slot-description-info-p
                  :slot-description-name
                  :slot-description-point
                  :slot-description-initial-value-start-point
  
negative.code:           (rove:ok (= (length slots) 3))
            (let ((slot (first slots)))
              (rove:ok (slot-description-info-p slot))
              (rove:ok (not (slot-description-complex-p slot)))
              (rove:ok (equal (slot-description-name slot) "slot-a"))
              (rove:ok (expected-point-position-p (slot-description-point slot) 4 2)))
            (let ((slot (second slots)))
              (rove:ok (slot-description-info-p slot))
              (rove:ok (not (slot-description-complex-p slot)))
              (rove:ok (equal (slot-description-name slot) "slot-b"))
              (rove:ok (expected-point-position-p (slot-description-point slot) 5 2)))
            (let ((slot (third slots)))
              (rove:ok (slot-description-info-p slot))
              (rove:ok (not (slot-description-complex-p slot)))
              (rove:ok (equal (slot-description-name slot) "slot-c"))
              (rove:ok (expected-point-position-p (slot-description-point slot) 6 2)))))))
    (rove:testing "complex slot-description"
  