/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.98 by lgorrie, Fri Jan 16 06:24:08 2004 UTC revision 1.99 by lgorrie, Fri Jan 16 06:50:52 2004 UTC
# Line 160  Emacs.") Line 160  Emacs.")
160  (defmacro with-I/O-lock (() &body body)  (defmacro with-I/O-lock (() &body body)
161    `(call-with-lock-held *write-lock* (lambda () ,@body)))    `(call-with-lock-held *write-lock* (lambda () ,@body)))
162    
163  (defmacro with-io-redirection ((&optional (connection '*dispatching-connection*))  (defmacro with-io-redirection ((&optional (connection '(current-connection)))
164                                 &body body)                                 &body body)
165    "Execute BODY with I/O redirection to CONNECTION.    "Execute BODY with I/O redirection to CONNECTION.
166  If *REDIRECT-IO* is true, all standard I/O streams are redirected."  If *REDIRECT-IO* is true, all standard I/O streams are redirected."

Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99

  ViewVC Help
Powered by ViewVC 1.1.5