projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9992: new function
[kmrcl.git]
/
lists.lisp
diff --git
a/lists.lisp
b/lists.lisp
index 9793f273d863227009390e794295864af9e63536..c18fe7e1982bf7ba03041b05315b34df815fcd54 100644
(file)
--- a/
lists.lisp
+++ b/
lists.lisp
@@
-192,3
+192,10
@@
(setf ,plist (append ,plist (list ,pkey ,value)))))))
(setf ,plist (append ,plist (list ,pkey ,value)))))))
+(defun unique-slot-values (list slot &key (test 'eql))
+ (let ((uniq '()))
+ (dolist (item list (nreverse uniq))
+ (let ((value (slot-value item slot)))
+ (unless (find value uniq :test test)
+ (push value uniq))))))
+