anchor.diff:      (cond
         ((string/= channel "#pounder")
          (reply-to message "This command only works in #pounder."))
  -      ((and (string-not-equal env-name "pol7")
  -            (string-not-equal env-name "pol9"))
  -       (reply-to message "You can only release pol7 or pol9"))
         ((null (gethash channel *channel-topics*))
          (reply-to message "I'm not clear on the topic just yet."))
         (t
  
positive.code: (defvar *pounder-topic* nil)
  
  (defun userlist-from-topic (env topic)
    (ppcre:register-groups-bind (userlist)
        ((if (string-equal env "pol7")
            "Pol7: ([\\w,]+)"
            "Pol9: ([\\w,]+)")
         topic)
      (unless (find userlist '("free" "idle" "busy") :test #'string-equal)
        (ppcre:split "\\s*,\\s*" userlist))))
  
  (defun activity-from-topic (env topic)
    (ppcre:register-groups-bind (activity)
        ((if (string-equal env "pol7")
            "Pol7: [^(;|]+\\(([^)]+)\\)"
            "Pol9: [^(;|]+\\(([^)]+)\\)")
         topic)
      activity))
  
  (defun update-topic-with-userlist (env topic userlist activity)
    (ppcre:regex-replace-all (if (string-equal env "pol7")
                                 "(Pol7): [^;|]+"
                                 "(Pol9): [^;|]+")
                             topic
                             (format nil "\\1: ~a~@[ (~a)~]"
                                     (cond
                                       (userlist
                                        (format nil "~{~a~^,~}" userlist))
                                       (activity
                                        "busy")
                                       (t
                                        "free"))
                                     activity)))
  
  (defcommand take (message directp env-name &rest activity-list)
    (let ((channel (first (arguments message)))
  
negative.code:     (cond
        ((string/= channel "#pounder")
         (reply-to message "This command only works in #pounder."))
        ((null (gethash channel *channel-topics*))
         (reply-to message "I'm not clear on the topic just yet."))
        (t
  