anchor.diff:       (save-env-data)
        (format nil "~a released by ~a" env-name nick))))
   
  +(defun set-env-status (env-name status)
  +  (cond
  +    ((not (member env-name *pss-environments* :test #'string-equal))
  +     (format nil "Can't find environment ~a" env-name))
  +    ((zerop (length status))
  +     (setf *pss-env-statuses* (remove (assoc env-name *pss-env-statuses* :test #'string-equal)
  +                                      *pss-env-statuses*))
  +     (save-env-data)
  +     (format nil "~a status removed" env-name))
  +    (t
  +     (let ((tuple (assoc env-name *pss-env-statuses* :test #'string-equal)))
  +       (if tuple
  +           (setf (cdr tuple) status)
  +           (setf *pss-env-statuses* (acons env-name status *pss-env-statuses*))))
  +     (save-env-data)
  +     (format nil "~a status is now: ~a" env-name status))))
  +
   (define-serious-command env (message directp &rest args)
     (expire-env-leases)
     (let ((env-name (first args))
  
positive.code:   "List containing the current known environments")
  (defvar *pss-leases* nil
    "Alist containing the leases people have done (NICK ENV ACTIVITY EXPIRE-TIME)")
  
  (defun save-env-data ()
    (with-open-file (ouf (orca-path "data/pss-envs.lisp")
  
negative.code:                      (describe-time-left (fourth match)))
               (unless (eq match-el end)
                 (format str ", "))))
          (format nil "~a~@[(~a)~] is currently free" env-name status))))
  
  (defun remove-all-env-leases (env-name)
    (setf *pss-leases* (remove env-name *pss-leases* :test #'string-equal :key #'second)))
  