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

Diff of /mcclim/recording.lisp

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

revision 1.18 by rouanet, Wed Jul 25 13:01:26 2001 UTC revision 1.19 by adejneka, Thu Jul 26 03:32:48 2001 UTC
# Line 390  recording stream. If it is T, *STANDARD- Line 390  recording stream. If it is T, *STANDARD-
390    `(invoke-with-new-output-record    `(invoke-with-new-output-record
391      ,stream      ,stream
392      #'(lambda (,stream ,record)      #'(lambda (,stream ,record)
393          ,(unless record-supplied-p `(declare (ignore ,record)))          ,@(unless record-supplied-p `((declare (ignore ,record))))
394          ,@body)          ,@body)
395      ',record-type      ',record-type
396      ,@initargs))      ,@initargs))
# Line 517  recording stream. If it is T, *STANDARD- Line 517  recording stream. If it is T, *STANDARD-
517                                                      (region-intersection clip                                                      (region-intersection clip
518                                                                           (untransform-region transformation region))                                                                           (untransform-region transformation region))
519                                                      transformation line-style text-style)))                                                      transformation line-style text-style)))
                (finish-output *error-output*)  
520                 (unwind-protect                 (unwind-protect
521                      (progn                      (progn
522                        (setf (sheet-medium stream) ,new-medium)                        (setf (sheet-medium stream) ,new-medium)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5