[mcclim-cvs] CVS mcclim

[ahefner]

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))