From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 2 May 2003 22:30:26 +0000 (+0000)
Subject: r4743: Auto commit for Debian build
X-Git-Tag: v1.96~237
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=123adbaf1fb442ffff615c56e118bfd374f02b9f

r4743: Auto commit for Debian build
---

diff --git a/debian/changelog b/debian/changelog
index f58df3e..0f9e739 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.37-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri,  2 May 2003 16:30:15 -0600
+
 cl-kmrcl (1.36-1) unstable; urgency=low
 
   * New upstream 
diff --git a/lists.lisp b/lists.lisp
index dee8317..ef13453 100644
--- a/lists.lisp
+++ b/lists.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: lists.lisp,v 1.1 2003/04/29 00:26:21 kevin Exp $
+;;;; $Id: lists.lisp,v 1.2 2003/05/02 22:30:26 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -69,6 +69,12 @@
 	    it
 	    nil)))))
 
+(defun flatten (lis)
+  (cond ((atom lis) lis)
+	((listp (car lis))
+	 (append (flatten (car lis)) (flatten (cdr lis))))
+	(t (append (list (car lis)) (flatten (cdr lis))))))
+
 ;;; Keyword functions
 
 (defun remove-keyword (key arglist)
diff --git a/package.lisp b/package.lisp
index 88c5a51..120d39b 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.23 2003/04/29 00:49:09 kevin Exp $
+;;;; $Id: package.lisp,v 1.24 2003/05/02 22:30:26 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -41,6 +41,7 @@
    #:mapcar2-append-string
    #:delimited-string-to-list
    #:list-to-delimited-string
+   #:flatten
    #:indent-spaces
    #:print-list
    #:print-rows