[mcclim-cvs] CVS mcclim/Backends/CLX

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory cl-net:/tmp/cvs-serv11057

Modified Files:
	medium.lisp 
Log Message:
Fix typo in with-clx-graphics.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2008/01/30 18:56:40	1.88
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2008/11/09 19:55:38	1.89
@@ -612,7 +612,7 @@
 
 (defmacro with-clx-graphics ((medium) &body body)
   `(let* ((port (port ,medium))
-	  (mirror (or (medium-buffer medium) (port-lookup-mirror port (medium-sheet ,medium)))))
+	  (mirror (or (medium-buffer ,medium) (port-lookup-mirror port (medium-sheet ,medium)))))
     (when mirror
       (let* ((line-style (medium-line-style ,medium))
 	     (ink        (medium-ink ,medium))