From c0e985428b4aa14bdc5a0688315bc4dbb5142ba3 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Mon, 22 Mar 2010 16:56:57 -0600 Subject: [PATCH] New release --- ChangeLog | 3 +++ debian/changelog | 6 ++++++ lists.lisp | 6 +++--- 3 files changed, 12 insertions(+), 3 deletions(-) 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))) -- 2.34.1