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. 
