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

[Helmut Eller]

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

Modified Files:
	swank.lisp 
Log Message:
(arglist-for-insertion): Don't use ~< ..~:@>.  CLISP's pretty printer
can't handle it.
Date: Wed Apr 28 18:18:07 2004
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.178 slime/swank.lisp:1.179
--- slime/swank.lisp:1.178	Tue Apr 27 18:27:27 2004
+++ slime/swank.lisp	Wed Apr 28 18:18:06 2004
@@ -233,7 +233,7 @@
   (let* ((socket (create-socket *loopback-interface* port))
          (port (local-port socket)))
     (funcall announce-fn port)
-    (case style
+    (ecase style
       (:spawn
        (spawn (lambda () 
                 (loop do (serve-connection socket :spawn dont-close)
@@ -878,7 +878,7 @@
              ((member :not-available)
               " <not available>")
              (list
-              (format nil "~(~<~{~^ ~A~}~@:>~))" (list arglist))))))
+              (format nil "~{~^ ~A~})" (list arglist))))))
         (t
          " <not available>")))