(deftest bryan-generalized-reference ()
  (let (lst1 lst2 lst3 (lst4 '(a b c)))
    (setf (car (push 1 lst1)) (1+ (car (push 1 lst1))))
    (incf (car (push 1 lst2)))
    (check
      (not (equal lst1 lst2))
      (= 2 (my-incf (car (push 1 lst3))))
      (samep "(A B C D)" (append1f lst4 'd)))))