[elpa] 137/255: setf method for aget

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit cfd856bdc3ebdf4eeae9a30d3e826758bf533b7d
Author: Eric Schulte <address@hidden>
Date:   Sat Jun 2 17:48:04 2012 -0600

    setf method for aget
---
 go-util.el |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/go-util.el b/go-util.el
index 835cbf9..1533f7d 100644
--- a/go-util.el
+++ b/go-util.el
@@ -50,6 +50,13 @@
 
 (defun take (num list) (subseq list 0 num))
 
+(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)
+
 (defmacro until (test &rest body)
   (declare (indent 1))
   `(while (not ,test) ,@body))