projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10151: updates
[kmrcl.git]
/
lists.lisp
diff --git
a/lists.lisp
b/lists.lisp
index 9793f273d863227009390e794295864af9e63536..dfa9d386d25d5c9f100c317372442b3ef15adcff 100644
(file)
--- a/
lists.lisp
+++ b/
lists.lisp
@@
-192,3
+192,12
@@
(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))))))
+
+
+