From 123adbaf1fb442ffff615c56e118bfd374f02b9f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 2 May 2003 22:30:26 +0000 Subject: [PATCH] r4743: Auto commit for Debian build --- debian/changelog | 6 ++++++ lists.lisp | 8 +++++++- package.lisp | 3 ++- 3 files changed, 15 insertions(+), 2 deletions(-) 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 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 -- 2.34.1