projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
966fd9d
)
r8420: document update-alist
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 30 Dec 2003 18:04:41 +0000
(18:04 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Tue, 30 Dec 2003 18:04:41 +0000
(18:04 +0000)
lists.lisp
patch
|
blob
|
history
diff --git
a/lists.lisp
b/lists.lisp
index 229bc91d6cc40d73bece0377d419db1d56a83ee4..3115dd5dbe1b99476baf576be214fe4353615686 100644
(file)
--- a/
lists.lisp
+++ b/
lists.lisp
@@
-157,12
+157,13
@@
(progn
(setf (cdr ,elem) ,value)
,alist)
- (setf ,alist (acons ,akey ,value ,alist))))))
+
(setf ,alist (acons ,akey ,value ,alist))))))
(defun get-alist (key alist &key (test #'eql))
(cdr (assoc key alist :test test)))
(defun (setf get-alist) (value key alist &key (test #'eql))
+ "This doesn't work to add a field which alist value is only modified locally"
(update-alist key value alist :test test)
value)