r4743: Auto commit for Debian build

diff --git a/debian/changelog b/debian/changelog
index f58df3eee73d0dc97837a592ceab87915967e2e5..0f9e7390c1076e7d5ed7233ce4ca454357717704 100644 (file)
--- 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 dee8317518d8312902e52a11381c193d1ddd9384..ef134538c9e49af564b88df2ff5e7b1cf0c01841 100644 (file)
--- 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 88c5a51e4e2a46d92f1d8663a45efc82f120b69b..120d39bfcd20dfbec01cfff8c83b20ae85da9a9b 100644 (file)
--- 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