(defmethod clim:read-frame-command ((frame weird-irc) &key (stream *standard-input*))
  (clim:with-input-editing (stream)
    (let ((c (clim:read-gesture :stream stream :peek-p t)))
      (if (eql c #\/)
          (progn
            (clim:read-gesture :stream stream)
            (clim:accept 'clim:command :stream stream
                         :prompt nil))
          (list
           'com-send-message
           (channel clim:*application-frame*)
           (read-line stream))))))