[movitz-cvs] CVS movitz/losp/muerte - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

22 Feb 2007

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv15249
Modified Files:
    cons.lisp 
Log Message:
Have tree-equal return singular value.

--- /project/movitz/cvsroot/movitz/losp/muerte/cons.lisp	2006/05/06 20:30:53	1.16
+++ /project/movitz/cvsroot/movitz/losp/muerte/cons.lisp	2007/02/22 21:23:04	1.17
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  8 15:25:45 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: cons.lisp,v 1.16 2006/05/06 20:30:53 ffjeld Exp $
+;;;; $Id: cons.lisp,v 1.17 2007/02/22 21:23:04 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -265,7 +265,7 @@
 (defun tree-equal (tree-1 tree-2 &key test test-not)
   (labels ((te (tree-1 tree-2 test)
         (if (not (consp tree-1))
-		 (funcall test tree-1 tree-2)
+		 (values (funcall test tree-1 tree-2))
           (if (not (consp tree-2))
    	   nil
    	 (and (te (car tree-1) (car tree-2) test)

    