projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r4811: Auto commit for Debian build
[kmrcl.git]
/
lists.lisp
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
;;;;
;;;; 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
;;;;
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
@@
-69,6
+69,12
@@
it
nil)))))
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)
;;; Keyword functions
(defun remove-keyword (key arglist)