anchor.diff:    "List containing the current known environments")
   (defvar *pss-leases* nil
     "Alist containing the leases people have done (NICK ENV ACTIVITY EXPIRE-TIME)")
  +(defvar *pss-env-statuses* nil
  +  "Alist of environment/status")
   
   (defun save-env-data ()
     (with-open-file (ouf (orca-path "data/pss-envs.lisp")
  
positive.code:      (save-env-data)
       (format nil "~a released by ~a" env-name nick))))
  
  (define-serious-command env (message directp &rest args)
    (expire-env-leases)
    (let ((env-name (first args))
  
negative.code:                  (#\s num))))))))
  
  (defun query-leases (env-name leases)
    (let ((matching (remove env-name leases :test-not #'string-equal :key #'cadr))
          (status (cdr (assoc env-name *pss-env-statuses* :test #'string-equal))))
      (if matching
          (with-output-to-string (str)
            (format str "~a~@[(~a)~] used by: " env-name status)
            (loop
               with end = (last matching)
               for match-el on matching
  