anchor.diff:      (terpri ouf)
       (write-line ";; Leases" ouf)
       (write *pss-leases* :stream ouf)
  +    (terpri ouf)
  +    (write-line ";; Statuses" ouf)
  +    (write *pss-env-statuses* :stream ouf)
       (terpri ouf)))
   
   (defun load-env-data ()
     (with-open-file (inf (orca-path "data/pss-envs.lisp") :direction :input)
  -    (setf *pss-environments* (read inf))
  -    (setf *pss-leases* (read inf))))
  +    (setf *pss-environments* (read inf nil nil))
  +    (setf *pss-leases* (read inf nil nil))
  +    (setf *pss-env-statuses* (read inf nil nil))))
   
   (defun expire-env-leases ()
     (let ((now (get-universal-time)))
  
positive.code:                      (describe-time-left (fourth match)))
               (unless (eq match-el end)
                 (format str ", "))))
          (format nil "~a is currently free" env-name))))
  
  (defun remove-all-env-leases (env-name)
    (setf *pss-leases* (remove env-name *pss-leases* :test #'string-equal :key #'second)))
  
negative.code:        (flet ((send (text)
                  (irc:notice (connection message) (source message) text)))
           (send "~env                                    - list known environments")
           (send "~env <envname>                          - display environment info")
           (send "~env <envname> take <time> [<activity>] - lease the environment")
           (send "~env <envname> release                  - release your lease on environment")
           (send "~env <envname> add                      - add a new environment")
           (send "~env <envname> remove                   - remove an environment")
           (send "~env <envname> status [<status>]        - set the environment status")
           (send "~env <envname> help                     - display this help")))
        ((null (cdr args))
         ;; query leases
  