[slime-cvs] CVS update: slime/ChangeLog slime/swank.lisp

[Edi Weitz]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv13108/slime

Modified Files:
	ChangeLog swank.lisp 
Log Message:
TRANSPOSE-LISTS again...

Date: Thu Aug 11 10:41:35 2005
Author: eweitz

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.741 slime/ChangeLog:1.742
--- slime/ChangeLog:1.741	Thu Aug 11 05:06:33 2005
+++ slime/ChangeLog	Thu Aug 11 10:41:34 2005
@@ -1,3 +1,7 @@
+2005-08-11  Edi Weitz  <edi at agharta.de>
+
+	* swank.lisp (transpose-lists): Fixed it.
+
 2005-08-10  Alan Ruttenberg  <alanr-l at mumble.net>
 
 	* slime.el move slime-repl-add-to-input-history to


Index: slime/swank.lisp
diff -u slime/swank.lisp:1.321 slime/swank.lisp:1.322
--- slime/swank.lisp:1.321	Wed Aug 10 02:21:57 2005
+++ slime/swank.lisp	Thu Aug 11 10:41:34 2005
@@ -2566,7 +2566,8 @@
 For example:
 \(transpose-lists '((ONE TWO THREE) (1 2)))
   => ((ONE 1) (TWO 2))"
-  (cond ((some #'null lists) '())
+  (cond ((null lists) '())
+        ((some #'null lists) '())
         (t (cons (mapcar #'car lists)
                  (transpose-lists (mapcar #'cdr lists))))))