Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv12525 Modified Files: encapsulate.lisp Log Message: Fix (setf stream-cursor-position) on encapsulating streams. --- /project/mcclim/cvsroot/mcclim/encapsulate.lisp 2006/03/10 21:58:12 1.19 +++ /project/mcclim/cvsroot/mcclim/encapsulate.lisp 2006/06/13 02:00:31 1.20 @@ -475,8 +475,15 @@ ((stream standard-encapsulating-stream))) ;;; A setf* method, but this should still work... -(def-stream-method (setf stream-cursor-position) - (x y (stream standard-encapsulating-stream))) +;; (It didn't. --Hefner) +;(def-stream-method (setf stream-cursor-position) +; (x y (stream standard-encapsulating-stream))) + +(defmethod* (setf stream-cursor-position) + (x y (stream standard-encapsulating-stream)) + (let ((*original-stream* stream) + (stream (slot-value stream 'stream))) + (setf (stream-cursor-position stream) (values x y)))) (def-stream-method stream-increment-cursor-position ((stream standard-encapsulating-stream) dx dy))