Changeset 782

Timestamp:

Apr 13, 2004, 12:23:54 PM (21 years ago)

Author:

Gary Byers

Message:

Less hysteria writing to echo-area stream.

File:

• trunk/ccl/hemlock/src/streams.lisp (modified) (1 diff)

trunk/ccl/hemlock/src/streams.lisp

@@ -82 +82 @@
 
 (defun hemlock-output-unbuffered-out (stream character)
-  (let* ((b (current-buffer))
-         (stream-mark (hemlock-output-stream-mark stream))
-         (new-buf (line-buffer (mark-line stream-mark))))
-    (unwind-protect
-         (with-left-inserting-mark (mark stream-mark)
-           (setf (current-buffer) new-buf)
-           (insert-character mark character))
-      (setf (current-buffer) b))))
+  (with-left-inserting-mark (mark (hemlock-output-stream-mark stream))
+    (insert-character mark character)
+    ))
 
 (defun hemlock-output-unbuffered-sout (stream string start end)
-  (let* ((b (current-buffer))
-         (stream-mark (hemlock-output-stream-mark stream))
-         (new-buf (line-buffer (mark-line stream-mark))))
-    (unwind-protect
-         (with-left-inserting-mark (mark stream-mark)
-           (setf (current-buffer) new-buf)
-           (insert-string mark string start end))
-      (setf (current-buffer) b))))
+  (with-left-inserting-mark (mark (hemlock-output-stream-mark stream))
+    (insert-string mark string start end)
+    ))