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

Diff of /mcclim/recording.lisp

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

revision 1.144 by rstrandh, Sat Aug 1 05:23:47 2009 UTC revision 1.145 by gbaumann, Sat Aug 1 16:10:32 2009 UTC
# Line 2292  according to the flags RECORD and DRAW." Line 2292  according to the flags RECORD and DRAW."
2292      (letf (((stream-current-output-record stream) new-record))      (letf (((stream-current-output-record stream) new-record))
2293        ;; Should we switch on recording? -- APD        ;; Should we switch on recording? -- APD
2294        (funcall continuation stream new-record)        (funcall continuation stream new-record)
2295        (finish-output stream))        (force-output stream))
2296      (if parent      (if parent
2297          (add-output-record new-record parent)          (add-output-record new-record parent)
2298          (stream-add-output-record stream new-record))          (stream-add-output-record stream new-record))
# Line 2309  according to the flags RECORD and DRAW." Line 2309  according to the flags RECORD and DRAW."
2309        (letf (((stream-current-output-record stream) new-record))        (letf (((stream-current-output-record stream) new-record))
2310          ;; Should we switch on recording? -- APD          ;; Should we switch on recording? -- APD
2311          (funcall continuation stream new-record)          (funcall continuation stream new-record)
2312          (finish-output stream))          (force-output stream))
2313        (if parent        (if parent
2314            (add-output-record new-record parent)            (add-output-record new-record parent)
2315            (stream-add-output-record stream new-record))            (stream-add-output-record stream new-record))
# Line 2325  according to the flags RECORD and DRAW." Line 2325  according to the flags RECORD and DRAW."
2325        (letf (((stream-current-output-record stream) new-record)        (letf (((stream-current-output-record stream) new-record)
2326               ((stream-cursor-position stream) (values 0 0)))               ((stream-cursor-position stream) (values 0 0)))
2327          (funcall continuation stream new-record)          (funcall continuation stream new-record)
2328          (finish-output stream)))          (force-output stream)))
2329      new-record))      new-record))
2330    
2331  (defmethod invoke-with-output-to-output-record  (defmethod invoke-with-output-to-output-record
# Line 2337  according to the flags RECORD and DRAW." Line 2337  according to the flags RECORD and DRAW."
2337        (letf (((stream-current-output-record stream) new-record)        (letf (((stream-current-output-record stream) new-record)
2338               ((stream-cursor-position stream) (values 0 0)))               ((stream-cursor-position stream) (values 0 0)))
2339          (funcall continuation stream new-record)          (funcall continuation stream new-record)
2340          (finish-output stream)))          (force-output stream)))
2341      new-record))      new-record))
2342    
2343  (defmethod make-design-from-output-record (record)  (defmethod make-design-from-output-record (record)

Legend:
Removed from v.1.144  
changed lines
  Added in v.1.145

  ViewVC Help
Powered by ViewVC 1.1.5