From ce1cbb4b287d275af616a81e30197b6e57a82d90 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 5 Dec 2003 18:38:35 +0000 Subject: [PATCH] r8305: Automated commit for Debian build of kmrcl upstream-version-1.61 --- debian/changelog | 6 ++++++ lists.lisp | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/debian/changelog b/debian/changelog index c292ca2..7a6703f 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.61-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Fri, 5 Dec 2003 11:38:14 -0700 + cl-kmrcl (1.60-1) unstable; urgency=low * New upstream diff --git a/lists.lisp b/lists.lisp index 336baa0..229bc91 100644 --- a/lists.lisp +++ b/lists.lisp @@ -42,7 +42,7 @@ (unless (find elem l1) (setq l1 (append l1 (list elem)))))) -(defun remove-from-tree-if (pred tree atom-processor) +(defun remove-from-tree-if (pred tree &optional atom-processor) "Strip from tree of atoms that satistify predicate" (if (atom tree) (unless (funcall pred tree) -- 2.34.1