diff options
author | Daniel Kochmański <daniel@turtleware.eu> | 2024-09-17 14:03:25 +0200 |
---|---|---|
committer | Daniel Kochmański <daniel@turtleware.eu> | 2024-09-17 14:22:36 +0200 |
commit | 827b766948acb8c850d680fa7730e7071d4599f4 (patch) | |
tree | 4e2be12805edf6cfd8500317916a137c891226c6 | |
parent | 32f8af18983b148ffb4658eb9dd4226df371bb46 (diff) |
seos: SEOS-WRITE-VECTOR does not assume that there will be split
Sometimes the line is too short to actuate a split.
-rw-r--r-- | Core/extended-output/output-stream.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Core/extended-output/output-stream.lisp b/Core/extended-output/output-stream.lisp index 3377595d..9153ebf7 100644 --- a/Core/extended-output/output-stream.lisp +++ b/Core/extended-output/output-stream.lisp @@ -222,7 +222,7 @@ (setf (cursor-offset cursor) (values bx by)) (setf (cursor-extent cursor) (values ex ey)) (seos-record-output stream vector start split) - (when (/= split end) + (when (and split (/= split end)) (go :break-line)))))) |