/[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.8 by heller, Wed Sep 21 11:39:10 2005 UTC revision 1.9 by heller, Thu Sep 22 20:15:11 2005 UTC
# Line 45  Line 45 
45    nil)    nil)
46    
47  (defmethod stream-force-output ((stream slime-output-stream))  (defmethod stream-force-output ((stream slime-output-stream))
48    (with-slots (last-flush-time) stream    (with-slots (last-flush-time fill-pointer) stream
49      (let ((now (get-internal-real-time)))      (let ((now (get-internal-real-time)))
50        (when (> (/ (- now last-flush-time)        (when (> (/ (- now last-flush-time)
51                    (coerce internal-time-units-per-second 'double-float))                    (coerce internal-time-units-per-second 'double-float))
# Line 53  Line 53 
53          (finish-output stream))))          (finish-output stream))))
54    nil)    nil)
55    
56    (defmethod stream-fresh-line ((stream slime-output-stream))
57      (with-slots (column) stream
58        (cond ((zerop column) nil)
59              (t (terpri stream) t))))
60    
61  (defclass slime-input-stream (fundamental-character-input-stream)  (defclass slime-input-stream (fundamental-character-input-stream)
62    ((output-stream :initarg :output-stream)    ((output-stream :initarg :output-stream)
63     (input-fn :initarg :input-fn)     (input-fn :initarg :input-fn)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5