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

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(changelog-date): make-pathname portability fix (from alanr).

(with-io-redirection): Use (current-connection) instead of
*dispatching-connection* (from alanr).

Date: Fri Jan 16 01:50:52 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.98 slime/swank.lisp:1.99
--- slime/swank.lisp:1.98	Fri Jan 16 01:24:08 2004
+++ slime/swank.lisp	Fri Jan 16 01:50:52 2004
@@ -160,7 +160,7 @@
 (defmacro with-I/O-lock (() &body body)
   `(call-with-lock-held *write-lock* (lambda () , at body)))
 
-(defmacro with-io-redirection ((&optional (connection '*dispatching-connection*))
+(defmacro with-io-redirection ((&optional (connection '(current-connection)))
                                &body body)
   "Execute BODY with I/O redirection to CONNECTION.
 If *REDIRECT-IO* is true, all standard I/O streams are redirected."