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

Diff of /mcclim/recording.lisp

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

revision 1.65 by mikemac, Thu Apr 3 14:41:42 2003 UTC revision 1.66 by hefner1, Sat Apr 12 06:26:02 2003 UTC
# Line 1833  were added." Line 1833  were added."
1833    (stream-close-text-output-record stream))    (stream-close-text-output-record stream))
1834    
1835  (defmethod* (setf stream-cursor-position) :after (x y (stream standard-output-recording-stream))  (defmethod* (setf stream-cursor-position) :after (x y (stream standard-output-recording-stream))
1836              (declare (ignore x y))    (declare (ignore x y))
1837    (stream-close-text-output-record stream))    (unless *inhibit-record-closing*
1838        (stream-close-text-output-record stream)))
1839    
1840  ;(defmethod stream-set-cursor-position :after ((stream standard-output-recording-stream))  ;(defmethod stream-set-cursor-position :after ((stream standard-output-recording-stream))
1841  ;  (stream-close-text-output-record stream))  ;  (stream-close-text-output-record stream))

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

  ViewVC Help
Powered by ViewVC 1.1.5