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

Diff of /mcclim/recording.lisp

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

revision 1.30 by mikemac, Tue Dec 4 16:19:19 2001 UTC revision 1.31 by moore, Tue Jan 1 20:14:12 2002 UTC
# Line 540  recording stream. If it is T, *STANDARD- Line 540  recording stream. If it is T, *STANDARD-
540  (defmethod invoke-with-new-output-record ((stream output-recording-stream)  (defmethod invoke-with-new-output-record ((stream output-recording-stream)
541                                            continuation record-type                                            continuation record-type
542                                            &rest initargs                                            &rest initargs
543                                            &key parent)                                            &key parent
544                                              &allow-other-keys)
545    (stream-close-text-output-record stream)    (stream-close-text-output-record stream)
546    (unless parent    (unless parent
547      (setq parent (stream-current-output-record stream)))      (setq parent (stream-current-output-record stream)))

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

  ViewVC Help
Powered by ViewVC 1.1.5