projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
New release
[kmrcl.git]
/
lists.lisp
diff --git
a/lists.lisp
b/lists.lisp
index eaa3f9d372aa601d079d6f24ead4798bc17ea467..a2ae23ff6c34d4c6ee20d0e2d7c1f426542d2018 100644
(file)
--- a/
lists.lisp
+++ b/
lists.lisp
@@
-76,9
+76,9
@@
(defun flatten (tree)
(let ((result '()))
(labels ((scan (item)
- (if (
list
p item)
- (map nil #'scan item)
- (push item result))))
+ (if (
cons
p item)
+
(map nil #'scan item)
+
(push item result))))
(scan tree))
(nreverse result)))