hunk ./lists.lisp 44
-              (with-unique-names (new-entry key-val test-val alist entry)
+              (with-unique-names (new-value key-val test-val alist entry)
hunk ./lists.lisp 56
-                 `(,new-entry)
+                 `(,new-value)
hunk ./lists.lisp 59
-                     (setf (,',get-value-from-entry ,entry) ,new-entry))
+                     (setf (,',get-value-from-entry ,entry) ,new-value))
hunk ./lists.lisp 62
-                       (setf ,(first newvals) (,',add ,key ,new-entry ,alist))
-                       ,setter)))
+                       (setf ,(first newvals) (,',add ,key ,new-value ,alist))
+                       ,setter
+                       ,new-value)))
hunk ./tests.lisp 822
-      (push (cdr (assoc '(very complex key) alist :test #'equal)) result)
-      result)
-  ((2 1) (43 42) (2 1)))
+      (push (cons 'very (cdr (assoc '(very complex key) alist :test #'equal))) result)
+      (reverse result))
+  ((2 1) (43 42) (very 2 1)))
+
+(deftest assoc-value.2
+    (let ((key 'key)
+          (alist '())
+          (result '()))
+      (setf (assoc-value alist key) 1)
+      (push (assoc-value alist key) result)
+      (push (setf (assoc-value alist key) 2) result)
+      (push (assoc-value alist key) result)
+      (reverse result))
+  (1 2 2))