(in-package :climi) (defmethod replay-output-record :around (record stream &optional region (x-offset 0) (y-offset 0)) (with-sheet-medium (medium stream) (climi::letf (((medium-ink medium) (medium-ink medium)) ((medium-foreground medium) (medium-foreground medium)) ((medium-background medium) (medium-background medium)) ((medium-transformation medium) (medium-transformation medium)) ((medium-clipping-region medium) (medium-clipping-region medium)) ((medium-line-style medium) (medium-line-style medium)) ((medium-text-style medium) (medium-text-style medium)) ((medium-default-text-style medium) (medium-default-text-style medium))) (call-next-method))))