anchor.diff:       (save-env-data module)
        (format nil "~a status is now: ~a" env-name status))))
   
  +(defun send-env-usage (message)
  +  (flet ((send (text)
  +           (irc:notice (connection message) (source message) text)))
  +    (send "~env                                 - list known environments")
  +    (send "~env <envname>                       - display environment info")
  +    (send "~take <envname> <time> [<activity>]  - lease the environment")
  +    (send "~share <envname> <time> [<activity>] - lease the environment with someone else")
  +    (send "~steal <envname> <time> [<activity>] - take the environment from someone else")
  +    (send "~release <envname>                   - release your lease on environment")
  +    (send "~update <envname> [<status>]         - set the environment status")
  +    (send "~env add <envname>                   - add a new environment")
  +    (send "~env remove <envname>                - remove an environment")
  +    (send "~env help                            - display this help")))
  +
  +
   (defmethod handle-command ((module env-module) (cmd (eql 'env))
                              message args)
     "env - manage environment leases and statuses"
  
positive.code:          (t
            (setf (environments-of module) (remove env-name (environments-of module) :test #'string-equal))
            (save-env-data module)
            (reply-to message "Removed ~a from environments." env-name)))))))
  
negative.code:       ((null args)
         (reply-to message "~{~a~^, ~}" (environments-of module)))
        ((string-equal env-name "help")
         (send-env-usage message))
        ((null (cdr args))
         ;; query leases
         (if (member env-name (environments-of module) :test #'string-equal)
  