seos: STREAM-TEXT-CURSOR is not used when replaying

This is to avoid a situation, where we concurrently change its position.

2 files changed, 9 insertions, 2 deletions

diff --git a/Core/extended-output/output-record.lisp b/Core/extended-output/output-record.lisp
index 9d4562ae..e770badc 100644
--- a/Core/extended-output/output-record.lisp
+++ b/Core/extended-output/output-record.lisp
@@ -1633,9 +1633,9 @@ the associated sheet can be determined."
 (defmethod replay-output-record ((self standard-text-displayed-output-record) stream
                                  &optional region (x-offset 0) (y-offset 0))
   (declare (ignore region))
-  (let ((cursor (stream-text-cursor stream)))
+  (let ((cursor (make-instance 'standard-text-cursor :sheet stream)))
     (update-cursor cursor (start-cursor self))
-    (stream-increment-cursor-position stream x-offset y-offset)
+    (increment-cursor-position cursor x-offset y-offset)
     (with-identity-transformation (stream)
       (loop for record across (slot-value self 'objects)
             do (multiple-value-bind (x0 y0) (output-record-origin record)
diff --git a/Core/extended-output/text-cursor.lisp b/Core/extended-output/text-cursor.lisp
index 61b6c492..93c56cdd 100644
--- a/Core/extended-output/text-cursor.lisp
+++ b/Core/extended-output/text-cursor.lisp
@@ -118,6 +118,13 @@
         (cursor-extent target) (cursor-extent source))
   target)
 
+(defun increment-cursor-position (cursor dx dy)
+  (let ((dx (or dx 0))
+        (dy (or dy 0)))
+    (multiple-value-bind (x y) (cursor-position cursor)
+      (setf (cursor-position cursor)
+            (values (+ x dx) (+ y dy))))))
+
 ;;; This macro is used to ensure that the cursor is restored to its old state
 ;;; after the operation. -- jd 2024-01-05
 (defmacro with-cursor-off ((cursor) &body body)