r5491: *** empty log message ***

[kmrcl.git] / lists.lisp

diff --git a/lists.lisp b/lists.lisp
index 77b6fa52401157e11b78451156903100a4df6775..674a5d76b22d9977aff797b61e0d71d1b55d73bd 100644 (file)
--- a/lists.lisp
+++ b/lists.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;

-;;;; $Id: lists.lisp,v 1.9 2003/07/31 07:32:11 kevin Exp $
+;;;; $Id: lists.lisp,v 1.10 2003/08/12 06:37:53 kevin Exp $

 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;


@@ -42,13 +42,13 @@
     (unless (find elem l1)
       (setq l1 (append l1 (list elem))))))
 
     (unless (find elem l1)
       (setq l1 (append l1 (list elem))))))
 

-(defun remove-tree-if (pred tree)
+(defun remove-from-tree-if (pred tree)

   "Strip from tree of atoms that satistify predicate"
   (if (atom tree)
       (unless (funcall pred tree)
        tree)
   "Strip from tree of atoms that satistify predicate"
   (if (atom tree)
       (unless (funcall pred tree)
        tree)

-    (let ((car-strip (remove-tree-if pred (car tree)))
-         (cdr-strip (remove-tree-if pred (cdr tree))))
+    (let ((car-strip (remove-from-tree-if pred (car tree)))
+         (cdr-strip (remove-from-tree-if pred (cdr tree))))

       (cond
        ((and car-strip (atom (cadr tree)) (null cdr-strip))
        (list car-strip))
       (cond
        ((and car-strip (atom (cadr tree)) (null cdr-strip))
        (list car-strip))