render-op type definition

Define a RENDER-OP type. From Douglas Crosher via mcclim-devel. darcs-hash:20060317143424-30503-721c8383c67f058f386e76c405f3b440f921d692.gz
sharplispers · Mar 17, 2006 · d4a0084 · d4a0084
1 parent 502e06d
commit d4a0084
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/xrender.lisp b/xrender.lisp
@@ -344,7 +344,10 @@ by every function, which attempts to generate RENDER requests."
                :out :out-reverse :atop :atop-reverse :xor :add :saturate :maximum))
     ((index thing) `(member8-put ,index ,thing
                      :clear :src :dst :over :over-reverse :in :in-reverse
-                     :out :out-reverse :atop :atop-reverse :xor :add :saturate :maximum))))
+                     :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