X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Flist.lisp;h=7a4ca6d909dfd7c9ff98d5fac5b6e2dfeaf4b2db;hb=709d2737da56b9ecbd9598bab911e3feefdfb42c;hp=0bd484649a9e5e0d1c353a777ebbe249424c6e3f;hpb=8de6bd35930e6f3c3e37b9800955faf81882971d;p=jscl.git

diff --git a/src/list.lisp b/src/list.lisp
index 0bd4846..7a4ca6d 100644
--- a/src/list.lisp
+++ b/src/list.lisp
@@ -265,6 +265,11 @@
     (rplacd 2nd 3rd)))
 
 
+(defun adjoin (item list &key (test #'eql) (key #'identity))
+  (if (member item list :key key :test test)
+    list
+    (cons item list)))
+
 (defun intersection (list1 list2 &key (test #'eql) (key #'identity))
   (let ((new-list ()))
     (dolist (x list1)