(defstruct point x y)

(deftest bryan-structures ()
  (let ((p1 (make-point :x 1 :y 2)))
    (setf (point-y p1) 3)
    (check
      (samep "#S(POINT :X 0 :Y 0)" (make-point :x 0 :y 0))
      (= 1 (point-x p1))
      (= 3 (point-y p1))
      (typep p1 'point))))