anchor.diff:    (optima:match (xmpp:body message)
       ((equal "v")
        (reply-chat connection (xmpp:from message)
  -                 *version* (xmpp::type- message)))
  +                 (git-version) (xmpp::type- message)))
       ((equal "errors")
        (reply-chat connection (xmpp:from message)
                    (format-errors) (xmpp::type- message)))
  
positive.code: (defparameter *ideas* nil)
  
  (defun add-idea (from idea)
    (push (list from idea (get-universal-time)) *ideas*))
  
  (defun get-ideas ()
    (format nil "ideas: ~{~&~a~}" *ideas*))
  
  (defun make-keyword (string)
  
negative.code: (defun trim (string)
    (string-trim '(#\Space #\Tab #\Newline) string))
  
  (defmacro with-system-path ((var system) &body body)
    `(let ((,var (ql:where-is-system ,system)))
       ,@body))
  
  (defun git-version ()
    (with-system-path (system "lbot")
      (if system
          (multiple-value-bind (out err status)
              (asdf/run-program:run-program
  