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

Diff of /mcclim/recording.lisp

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

revision 1.109 by moore, Sat Jul 24 15:07:50 2004 UTC revision 1.110 by moore, Sun Jul 25 08:09:22 2004 UTC
# Line 2109  according to the flags RECORD and DRAW." Line 2109  according to the flags RECORD and DRAW."
2109  (defmethod invoke-with-output-to-output-record  (defmethod invoke-with-output-to-output-record
2110      ((stream output-recording-stream) continuation record-type (constructor null)      ((stream output-recording-stream) continuation record-type (constructor null)
2111       &rest initargs)       &rest initargs)
2112      (declare (ignore record-type))
2113    (stream-close-text-output-record stream)    (stream-close-text-output-record stream)
2114    (let ((new-record (apply #'make-instance record-type initargs)))    (let ((new-record (apply #'make-instance record-type initargs)))
2115      (with-output-recording-options (stream :record t :draw nil)      (with-output-recording-options (stream :record t :draw nil)

Legend:
Removed from v.1.109  
changed lines
  Added in v.1.110

  ViewVC Help
Powered by ViewVC 1.1.5