Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv21830
Modified Files: cons.lisp Log Message: Added acons.
--- /project/movitz/cvsroot/movitz/losp/muerte/cons.lisp 2005/06/12 21:27:03 1.11 +++ /project/movitz/cvsroot/movitz/losp/muerte/cons.lisp 2006/04/07 21:33:54 1.12 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 8 15:25:45 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: cons.lisp,v 1.11 2005/06/12 21:27:03 ffjeld Exp $ +;;;; $Id: cons.lisp,v 1.12 2006/04/07 21:33:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -271,3 +271,7 @@ (and (te (car tree-1) (car tree-2) test) (te (cdr tree-1) (cdr tree-2) test)))))) (te tree-1 tree-2 (or test (and test-not (complement test-not)) #'eql)))) + +(defun acons (key datum alist) + "=> new-alist" + (cons (cons key datum) alist))