/[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.3 by heller, Tue Jan 13 18:21:48 2004 UTC revision 1.4 by heller, Tue Mar 9 13:58:50 2004 UTC
# Line 10  Line 10 
10  ;;;   $Id$  ;;;   $Id$
11  ;;;  ;;;
12    
13  (in-package :swank)  (in-package :swank-backend)
14    
15  (defclass slime-output-stream (fundamental-character-output-stream)  (defclass slime-output-stream (fundamental-character-output-stream)
16    ((output-fn :initarg :output-fn)    ((output-fn :initarg :output-fn)
# Line 103  Line 103 
103    
104    
105  ;;;  ;;;
106  (defmethod make-fn-streams (input-fn output-fn)  (defimplementation make-fn-streams (input-fn output-fn)
107    (let* ((output (make-instance 'slime-output-stream    (let* ((output (make-instance 'slime-output-stream
108                                  :output-fn output-fn))                                  :output-fn output-fn))
109           (input  (make-instance 'slime-input-stream           (input  (make-instance 'slime-input-stream

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5