[mcclim-cvs] CVS mcclim

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) ,@args) (with-sheet-medium (medium stream) (,method-name medium ,@args))))))