diff --git a/ChangeLog b/ChangeLog index 2a8031d185accfd5207df4d072b5d60031cd04cf..773f4cdd58710d662a9ae83be2f78b42c631615d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,6 @@ +22 Apr 2010 Kevin Rosenberg <kevin@rosenberg.net> + * lists.lisp: Reduce memory use by FLATTEN + 20 Aug 2009 Kevin Rosenberg <kevin@rosenberg.net> * Version 1.100 * lists.lisp: For ECL, exclude function that is incompatible with ECL diff --git a/debian/changelog b/debian/changelog index bf103bddbbe0479cf58a710f4736c687cf391ddb..15fdec68d35008f5b97d7da3989c98e4fe9987d7 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.101-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg <kmr@debian.org> Mon, 22 Mar 2010 16:55:02 -0600 + cl-kmrcl (1.100-1) unstable; urgency=low * New upstream diff --git a/lists.lisp b/lists.lisp index eaa3f9d372aa601d079d6f24ead4798bc17ea467..a2ae23ff6c34d4c6ee20d0e2d7c1f426542d2018 100644 --- a/lists.lisp +++ b/lists.lisp @@ -76,9 +76,9 @@ (defun flatten (tree) (let ((result '())) (labels ((scan (item) - (if (listp item) - (map nil #'scan item) - (push item result)))) + (if (consp item) + (map nil #'scan item) + (push item result)))) (scan tree)) (nreverse result)))