* xrender.lisp: Define the 'render-op type. Needed if type checking is enabled.

Regards Douglas Crosher

Index: Experimental/freetype/xrender.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender.lisp,v retrieving revision 1.2 diff -u -r1.2 xrender.lisp --- Experimental/freetype/xrender.lisp 2 Dec 2004 09:11:41 -0000 1.2 +++ Experimental/freetype/xrender.lisp 16 Mar 2006 04:56:58 -0000 @@ -353,6 +353,10 @@ :out :out-reverse :atop :atop-reverse :xor :add :saturate :maximum))) )

+(deftype render-op () + '(member :clear :src :dst :over :over-reverse :in :in-reverse + :out :out-reverse :atop :atop-reverse :xor :add :saturate :maximum)) + ;; Now these pictures objects are like graphics contexts. I was about ;; to introduce a synchronous mode, realizing that the RENDER protocol ;; provides no provision to actually query a picture object's values.