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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(inspect-for-emacs-list): LispWorks has a low args limit for apply:
use reduce instead of apply.

Date: Mon Jan 10 20:34:31 2005
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.272 slime/swank.lisp:1.273
--- slime/swank.lisp:1.272	Thu Dec 16 22:16:50 2004
+++ slime/swank.lisp	Mon Jan 10 20:34:31 2005
@@ -2631,7 +2631,7 @@
                            (let ((a (if (null l)
                                         a
                                         (cons (label-value-line :tail l) a))))
-                             (apply #'append (reverse a)))))))
+                             (reduce #'append (reverse a) :from-end t))))))
                  (values title (append '("Elements:" (:newline)) lines)))))
                                
         (cond ((not length)             ; circular