[elpa] 152/255: Revert "improved the setf method for aget"

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 39a822446aa6ef37151d9203fee785f509901e8a
Author: Eric Schulte <address@hidden>
Date:   Sun Jun 3 11:35:14 2012 -0600

    Revert "improved the setf method for aget"
    
    This reverts commit de4ddf2419b9fc1b26814db6cbd3ddc9b0214232.
---
 go-util.el |   14 ++++----------
 1 files changed, 4 insertions(+), 10 deletions(-)

diff --git a/go-util.el b/go-util.el
index de1b178..1533f7d 100644
--- a/go-util.el
+++ b/go-util.el
@@ -50,16 +50,10 @@
 
 (defun take (num list) (subseq list 0 num))
 
-(defmacro set-aget (place key new)
-  "Set `aget' of KEY in the list stored in PLACE to NEW."
-  (let ((sym (gensym)))
-    (if (symbolp place)
-        (if (aget (eval place) (eval key))
-            `(setf (cdr (assoc ,key ,place)) ,new)
-          `(callf setq ,place (cons (cons ,key ,new) ,place)))
-      `(let ((,sym ,place))
-         (setf (aget ,sym ,key) ,new)
-         (setf ,place ,sym)))))
+(defun set-aget (list key new)
+  (if (aget list key)
+      (setf (cdr (assoc key list)) new)
+    (setf (cdr (last list)) (list (cons key new)))))
 
 (defsetf aget set-aget)