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

[Helmut Eller]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(create-socket): Fix condition message.
Date: Tue Jan 13 17:51:57 2004
Author: heller

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.13 slime/swank-lispworks.lisp:1.14
--- slime/swank-lispworks.lisp:1.13	Tue Jan 13 13:20:04 2004
+++ slime/swank-lispworks.lisp	Tue Jan 13 17:51:56 2004
@@ -7,7 +7,7 @@
 ;;; This code has been placed in the Public Domain.  All warranties
 ;;; are disclaimed.
 ;;;
-;;;   $Id: swank-lispworks.lisp,v 1.13 2004/01/13 18:20:04 heller Exp $
+;;;   $Id: swank-lispworks.lisp,v 1.14 2004/01/13 22:51:56 heller Exp $
 ;;;
 
 (in-package :swank)
@@ -43,11 +43,11 @@
   (multiple-value-bind (socket where errno)
       (comm::create-tcp-socket-for-service port :address "localhost")
     (cond (socket socket)
-          (t (error 'network-error "asdf ~A") 
+          (t (error 'network-error 
               :format-control "~A failed: ~A (~D)"
               :format-arguments (list where 
                                       (list #+unix (lw:get-unix-error errno))
-                                      errno)))))
+                                      errno))))))
 
 (defmethod local-port (socket)
   (nth-value 1 (comm:get-socket-address (socket-fd socket))))