Commit 135d1fab authored by Daniel Kochmański's avatar Daniel Kochmański

use evacuate-temporary-string in text-recording

Fixes #33.
parent 4bd1d05d
......@@ -148,7 +148,7 @@
(declare (type coordinate x-offset y-offset))
#-aclpc (declare (ignore region))
(let* ((medium (sheet-medium stream))
(string (slot-value record 'string))
(string (evacuate-temporary-string (slot-value record 'string)))
(start 0)
(end (length string))
(text-style (slot-value record 'initial-text-style))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment