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:                  (#\s num))))))))
  
  (defun query-leases (env-name leases)
    (let ((matching (remove env-name leases :test-not #'string-equal :key #'cadr)))
      (if matching
          (with-output-to-string (str)
            (format str "~a used by: " env-name)
            (loop
               with end = (last matching)
               for match-el on matching
  
negative.code:     (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 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)))
  