anchor.diff:                   :highlight (reply-nick (xmpp:from message))))
       ((equal "ideas")
        (reply-chat connection (xmpp:from message)
  -                 (get-ideas) (xmpp::type- message)))
  +                 (format-ideas *ideas*) (xmpp::type- message)))
  +    ((equal "reload")
  +     (multiple-value-bind (success text) (reload)
  +         (let ((text (if success "done" text)))
  +           (reply-chat connection (xmpp:from message)
  +                       text (xmpp::type- message)))))
       ((or (optima.ppcre:ppcre "(^|\\s)300($|\\s)")
            (optima.ppcre:ppcre "(^|\\s)тристо($|\\s)")
            (optima.ppcre:ppcre "(^|\\s)триста($|\\s)"))
  
positive.code:   (optima:match (xmpp:body message)
      ((equal "v")
       (reply-chat connection (xmpp:from message)
                   *version* (xmpp::type- message)))
      ((equal "errors")
       (reply-chat connection (xmpp:from message)
                   (format-errors) (xmpp::type- message)))
  
negative.code:     (format stream "error ~A at ~A" (object object)
              (format-time (catched-at object)))))
  
  (defclass idea ()
    ((user
      :accessor idea-user
      :initarg :user)
     (created-at
      :accessor idea-created-at
      :initarg :created-at
      :initform (get-universal-time))
     (text
      :accessor idea-text
      :initarg :text)))
  
  (defmethod print-object ((object idea) stream)
    (print-unreadable-object (object stream :type nil :identity nil)
      (format stream "idea: ~A from ~A at ~A"
              (idea-text object)
              (idea-user object)
              (format-time (idea-created-at object)))))
  
  (defun format-time (&optional (time (get-universal-time)))
    (multiple-value-bind
          (second minute hour date month year day-of-week dst-p tz)
        (decode-universal-time time)
      (declare (ignore second day-of-week dst-p tz))
      (format nil "~2,'0d-~2,'0d-~d ~2,'0d:~2,'0d" 
              date month year hour minute)))
  
  (defun callback-with-restart (&rest args)
    (restart-case
  