projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r8305: Automated commit for Debian build of kmrcl upstream-version-1.61
[kmrcl.git]
/
lists.lisp
diff --git
a/lists.lisp
b/lists.lisp
index 336baa02864fd29363c82ef90949aed6e6cfddae..229bc91d6cc40d73bece0377d419db1d56a83ee4 100644
(file)
--- a/
lists.lisp
+++ b/
lists.lisp
@@
-42,7
+42,7
@@
(unless (find elem l1)
(setq l1 (append l1 (list elem))))))
(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)
"Strip from tree of atoms that satistify predicate"
(if (atom tree)
(unless (funcall pred tree)