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

Diff of /slime/swank-scl.lisp

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

revision 1.21 by heller, Thu Aug 7 07:53:47 2008 UTC revision 1.22 by heller, Fri Aug 8 13:43:33 2008 UTC
# Line 349  Line 349 
349           (input  (make-slime-input-stream input-fn output)))           (input  (make-slime-input-stream input-fn output)))
350      (values input output)))      (values input output)))
351    
 (defimplementation make-stream-interactive (stream)  
   (when (or (typep stream 'slime-input-stream)  
             (typep stream 'slime-output-stream))  
     (setf (slot-value stream 'interactive) t)))  
   
352    
353  ;;;; Compilation Commands  ;;;; Compilation Commands
354    

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5