(defun test3 (x &key (result '(:value 0)))
  result)

(defun test4 (x &key (result (list :value 0)))
  result)
(eq (test3 1) (test3 1)) --> t
(eq (test4 1) (test4 1)) --> nil