From: Kevin Rosenberg Date: Mon, 22 Mar 2010 22:56:57 +0000 (-0600) Subject: New release X-Git-Tag: v1.101^0 X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=c0e985428b4aa14bdc5a0688315bc4dbb5142ba3 New release --- diff --git a/ChangeLog b/ChangeLog index 2a8031d..773f4cd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,6 @@ +22 Apr 2010 Kevin Rosenberg + * lists.lisp: Reduce memory use by FLATTEN + 20 Aug 2009 Kevin Rosenberg * Version 1.100 * lists.lisp: For ECL, exclude function that is incompatible with ECL diff --git a/debian/changelog b/debian/changelog index bf103bd..15fdec6 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-kmrcl (1.101-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg 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 eaa3f9d..a2ae23f 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)))