anchor.diff:  (in-package #:orca)
   
  -(defmodule env env-module ("env")
  +(defmodule env env-module ("env" "take" "share" "steal" "release")
     (environments :accessor environments-of :initform nil)
     (leases :accessor leases-of :initform nil)
     (statuses :accessor statuses-of :initform nil))
  
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:      (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"
  