Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19223
Modified Files: lists.lisp Log Message: Wrote copy-tree and changed tree-equal.
Date: Sun Jun 12 23:27:08 2005 Author: ffjeld
Index: movitz/losp/muerte/lists.lisp diff -u movitz/losp/muerte/lists.lisp:1.10 movitz/losp/muerte/lists.lisp:1.11 --- movitz/losp/muerte/lists.lisp:1.10 Fri Nov 19 21:13:44 2004 +++ movitz/losp/muerte/lists.lisp Sun Jun 12 23:27:07 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 20012000, 2002-2004, +;;;; Copyright (C) 20012000, 2002-2005, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: lists.lisp @@ -9,7 +9,7 @@ ;;;; Created at: Tue Dec 5 18:40:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: lists.lisp,v 1.10 2004/11/19 20:13:44 ffjeld Exp $ +;;;; $Id: lists.lisp,v 1.11 2005/06/12 21:27:07 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -140,17 +140,6 @@
(defun (setf nth) (value n list) (setf (car (nthcdr n list)) value)) - -(defun tree-equal (tree-1 tree-2 &key (test 'equal)) - (cond - ((atom tree-1) - (and (atom tree-2) - (funcall test tree-1 tree-2))) - ((atom tree-2) - nil) - (t (and (tree-equal (car tree-1) (car tree-2) :test test) - (tree-equal (cdr tree-1) (cdr tree-2) :test test))))) -
(defun nconc (&rest lists) (declare (dynamic-extent lists))