/[mcclim]/mcclim/recording.lisp
ViewVC logotype

Diff of /mcclim/recording.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.84 by hefner1, Thu Jun 26 21:34:51 2003 UTC revision 1.85 by strandh, Wed Jul 30 15:10:31 2003 UTC
# Line 532  recording stream. If it is T, *STANDARD- Line 532  recording stream. If it is T, *STANDARD-
532               ((slot-value stream 'baseline) (slot-value stream 'baseline)))               ((slot-value stream 'baseline) (slot-value stream 'baseline)))
533          (with-sheet-medium (medium stream)          (with-sheet-medium (medium stream)
534            (let ((medium-state (make-instance 'complete-medium-state            (let ((medium-state (make-instance 'complete-medium-state
535                                               :medium medium)))                                               :medium medium))
536                    (transformation (medium-transformation medium)))
537              (unwind-protect              (unwind-protect
538                   (progn                   (progn
539                     (setf (medium-transformation medium)                     (setf (medium-transformation medium)
540                           +identity-transformation+)                           +identity-transformation+)
541                     (replay-output-record record stream region))                     (replay-output-record record stream region))
542                  (setf (medium-transformation medium) transformation)
543                (set-medium-graphics-state medium-state medium))))))))                (set-medium-graphics-state medium-state medium))))))))
544    
545    

Legend:
Removed from v.1.84  
changed lines
  Added in v.1.85

  ViewVC Help
Powered by ViewVC 1.1.5