[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv9589

Modified Files:
	graphics.lisp 
Log Message:
Fix old-style eval-when.



--- /project/mcclim/cvsroot/mcclim/graphics.lisp	2006/03/29 10:43:37	1.52
+++ /project/mcclim/cvsroot/mcclim/graphics.lisp	2006/06/09 21:10:33	1.53
@@ -868,7 +868,7 @@
 
 (defmacro def-graphic-op (name (&rest args))
   (let ((method-name (symbol-concat '#:medium- name '*)))
-    `(eval-when (eval load compile)
+    `(eval-when (:execute :load-toplevel :compile-toplevel)
        (defmethod ,method-name ((stream sheet) , at args)
 	 (with-sheet-medium (medium stream)
 	   (,method-name medium , at args))))))