[movitz-cvs] CVS update: movitz/losp/muerte/lists.lisp

[Frode Vatvedt Fjeld]

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