+
+(define-record-type <command-handler>
+ (make-command-handler matcher should-handle action)
+ command-handler?
+ (matcher command-handler-matcher)
+ (should-handle command-handler-should-handle?)
+ (action command-handler-action))
+
+(define command-handler make-command-handler)
+