-(define* (create-device #:key
- (device-type 'software)
- (window-size '(640 480))
- (bits 16)
- (fullscreen #f)
- (stencilbuffer #f)
- (vsync #f)
- (receiver (make <event-receiver>)))
- (if (not (is-a? receiver <event-receiver>))
- (error
- "In procedure create-device: Wrong type argument (expecting <event-receiver>):"
- receiver))