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

Diff of /slime/swank.lisp

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

revision 1.205 by mbaringer, Tue Jun 29 08:12:44 2004 UTC revision 1.206 by lgorrie, Tue Jun 29 17:46:58 2004 UTC
# Line 334  Redirection is done while Lisp is proces Line 334  Redirection is done while Lisp is proces
334      (let ((input-fn      (let ((input-fn
335             (lambda ()             (lambda ()
336               (with-connection (connection)               (with-connection (connection)
337                 (with-simple-restart (abort "Abort reading input from Emacs.")                 (with-simple-restart (abort-read
338                                         "Abort reading input from Emacs.")
339                   (read-user-input-from-emacs))))))                   (read-user-input-from-emacs))))))
340        (multiple-value-bind (in out) (make-fn-streams input-fn output-fn)        (multiple-value-bind (in out) (make-fn-streams input-fn output-fn)
341          (let ((out (or dedicated-output out)))          (let ((out (or dedicated-output out)))

Legend:
Removed from v.1.205  
changed lines
  Added in v.1.206

  ViewVC Help
Powered by ViewVC 1.1.5