+(define* (irc-bot-send-line-action irc-bot message
+ channel line #:key emote?)
+ "Action handler for sending lines. Real behavior happens in
+irc-bot-send-line."
+ (irc-bot-send-line irc-bot channel line #:emote? emote?))
+
+(define* (irc-bot-send-line irc-bot channel line #:key emote?)
+ ;; TODO: emote? handling
+ (format (irc-bot-socket irc-bot) "PRIVMSG ~a :~a~a"
+ channel line irc-eol))
+
+
+;;; Likely-to-be-overridden generic methods
+
+(define-method (dispatch-raw-line (irc-bot <irc-bot>) raw-line)
+ "Dispatch a raw line of input"