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

Diff of /slime/swank.lisp

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

revision 1.38 by heller, Fri Oct 17 21:18:04 2003 UTC revision 1.39 by heller, Sun Oct 19 21:39:40 2003 UTC
# Line 44  Line 44 
44  (defvar *slime-output* nil  (defvar *slime-output* nil
45    "Bound to a slime-output-stream during request processing.")    "Bound to a slime-output-stream during request processing.")
46    
47    (defvar *slime-input* nil
48      "Bound to a slime-input-stream during request processing.")
49    
50    (defvar *slime-io* nil
51      "Bound to a two-way-stream built from *slime-input* and *slime-output*.")
52    
53  (defparameter *redirect-output* t)  (defparameter *redirect-output* t)
54    
55  (defun read-from-emacs ()  (defun read-from-emacs ()
# Line 53  Line 59 
59          (let ((*standard-output* *slime-output*)          (let ((*standard-output* *slime-output*)
60                (*error-output* *slime-output*)                (*error-output* *slime-output*)
61                (*trace-output* *slime-output*)                (*trace-output* *slime-output*)
62                (*debug-io*  *slime-output*)                (*debug-io* *slime-io*)
63                (*query-io* *slime-output*))                (*query-io* *slime-io*)
64                  (*standard-input* *slime-input*))
65            (apply #'funcall form))            (apply #'funcall form))
66          (apply #'funcall form))))          (apply #'funcall form))))
67    

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.5