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))))