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

Diff of /slime/swank-gray.lisp

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

revision 1.16 by heller, Fri Aug 22 21:15:36 2008 UTC revision 1.17 by heller, Sat Aug 30 15:33:28 2008 UTC
# Line 166  Line 166 
166    (make-instance 'slime-output-stream :output-fn write-string))    (make-instance 'slime-output-stream :output-fn write-string))
167    
168  (defimplementation make-input-stream (read-string)  (defimplementation make-input-stream (read-string)
169    (make-instance 'slime-output-stream :input-fn read-string))    (make-instance 'slime-input-stream
170                     :input-fn read-string
171                     :output-stream nil))
172    
173  (defimplementation make-fn-streams (input-fn output-fn)  (defimplementation make-fn-streams (input-fn output-fn)
174    (let* ((output (make-instance 'slime-output-stream    (let* ((output (make-instance 'slime-output-stream
# Line 174  Line 176 
176           (input  (make-instance 'slime-input-stream           (input  (make-instance 'slime-input-stream
177                                  :input-fn input-fn                                  :input-fn input-fn
178                                  :output-stream output)))                                  :output-stream output)))
     (values input output)))  
179        (values input output)))

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5