diff options
-rw-r--r-- | Core/extended-output/output-record.lisp | 2 | ||||
-rw-r--r-- | Core/windowing/sheets.lisp | 6 |
2 files changed, 4 insertions, 4 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))))))))))) diff --git a/Core/windowing/sheets.lisp b/Core/windowing/sheets.lisp index 945c22eb..374a2074 100644 --- a/Core/windowing/sheets.lisp +++ b/Core/windowing/sheets.lisp @@ -610,9 +610,9 @@ +identity-transformation+) (defclass sheet-transformation-mixin () - ((transformation :initform +identity-transformation+ - :initarg :transformation - :accessor sheet-transformation))) + ((sheet-transformation :initform +identity-transformation+ + :initarg :transformation + :accessor sheet-transformation))) (defclass sheet-translation-mixin (sheet-transformation-mixin) ()) |