(defmethod texture ((s screen))
"returns the screen texture, useful for accelerated enviroinments"
(unless (slot-value s 'texture)
(defmethod texture ((s screen))
"returns the screen texture, useful for accelerated enviroinments"
(unless (slot-value s 'texture)