[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv14898

Modified Files:
	lists.lisp 
Log Message:
Moved adjoin to cons.lisp.


--- /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp	2006/05/06 19:36:50	1.17
+++ /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp	2006/05/06 20:30:54	1.18
@@ -9,7 +9,7 @@
 ;;;; Created at:    Tue Dec  5 18:40:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: lists.lisp,v 1.17 2006/05/06 19:36:50 ffjeld Exp $
+;;;; $Id: lists.lisp,v 1.18 2006/05/06 20:30:54 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -442,10 +442,4 @@
       (unless (member x list-2 :key key :test test)
 	(return nil)))))
 
-(defun adjoin (item list &key (key 'identity) (test 'eql) test-not)
-  "=> new-list"
-  (let ((test (if test-not (complement test-not) test)))
-    (if (member (funcall key item) list :test test)
-	list
-      (cons item list))))