/[mcclim]/mcclim/pointer-tracking.lisp
ViewVC logotype

Diff of /mcclim/pointer-tracking.lisp

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

revision 1.11 by moore, Sat Jul 24 15:07:50 2004 UTC revision 1.12 by moore, Wed Oct 6 12:03:56 2004 UTC
# Line 82  Line 82 
82              (highlight nil highlight-p))              (highlight nil highlight-p))
83       &body body)       &body body)
84    (declare (ignorable pointer transformp context-type highlight))    (declare (ignorable pointer transformp context-type highlight))
85    (setq sheet (stream-designator-symbol sheet))    (setq sheet (stream-designator-symbol sheet '*standard-output*))
86    (loop    (loop
87       for (event-name handler-args . handler-body) in body       for (event-name handler-args . handler-body) in body
88       for handler-name = (gensym (symbol-name event-name))       for handler-name = (gensym (symbol-name event-name))
# Line 235  Line 235 
235                              &key repaint finish-on-release multiple-window)                              &key repaint finish-on-release multiple-window)
236                             &body body)                             &body body)
237    (declare (ignore repaint finish-on-release multiple-window))    (declare (ignore repaint finish-on-release multiple-window))
238    (setq stream (stream-designator-symbol stream))    (setq stream (stream-designator-symbol stream '*standard-output*))
239    (with-gensyms (record)    (with-gensyms (record)
240      `(let ((,record (with-output-to-output-record (,stream)      `(let ((,record (with-output-to-output-record (,stream)
241                        ,@body)))                        ,@body)))

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5