diff options
Diffstat (limited to 'Core/extended-output/output-record.lisp')
-rw-r--r-- | Core/extended-output/output-record.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Core/extended-output/output-record.lisp b/Core/extended-output/output-record.lisp index 0d67da44..2fa58ec4 100644 --- a/Core/extended-output/output-record.lisp +++ b/Core/extended-output/output-record.lisp @@ -1046,7 +1046,7 @@ the associated sheet can be determined." (x-offset 0) (y-offset 0)) (declare (ignore region)) (with-slots (,@slot-names) record - (let ((,medium (sheet-medium stream))) + (with-sheet-medium (,medium stream) ;; The medium graphics state is set up in :around methods. (with-translation (,medium x-offset y-offset) (,method-name ,medium ,@arg-names))))))))))) |