[slime-cvs] CVS update: slime/swank-gray.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv16834

Modified Files:
	swank-gray.lisp 
Log Message:
(stream-fresh-line): Define a method, so that Allegro passes our tests.
Date: Thu Sep 22 22:15:12 2005
Author: heller

Index: slime/swank-gray.lisp
diff -u slime/swank-gray.lisp:1.8 slime/swank-gray.lisp:1.9
--- slime/swank-gray.lisp:1.8	Wed Sep 21 13:39:10 2005
+++ slime/swank-gray.lisp	Thu Sep 22 22:15:11 2005
@@ -45,13 +45,18 @@
   nil)
 
 (defmethod stream-force-output ((stream slime-output-stream))
-  (with-slots (last-flush-time) stream
+  (with-slots (last-flush-time fill-pointer) stream
     (let ((now (get-internal-real-time)))
       (when (> (/ (- now last-flush-time)
                   (coerce internal-time-units-per-second 'double-float))
                0.2)
         (finish-output stream))))
   nil)
+
+(defmethod stream-fresh-line ((stream slime-output-stream))
+  (with-slots (column) stream
+    (cond ((zerop column) nil)
+          (t (terpri stream) t))))
 
 (defclass slime-input-stream (fundamental-character-input-stream)
   ((output-stream :initarg :output-stream)