anchor.diff:                         :if-does-not-exist :create)
       (write-line ";; Environments" ouf)
       (write *pss-environments* :stream ouf)
  -    (write-line ";; Leases")
  -    (write *pss-leases* :stream ouf)))
  +    (terpri ouf)
  +    (write-line ";; Leases" ouf)
  +    (write *pss-leases* :stream ouf)
  +    (terpri ouf)))
   
   (defun load-env-data ()
     (with-open-file (inf (orca-path "data/pss-envs.lisp") :direction :input)
  
positive.code:            (reply-to message "Can't find environment ~a" env-name)))
        ((string-equal subcmd "take")
         (reply-to message (create-lease env-name (source message)
                                         (first args)
                                         (join-string #\space (rest args)))))
        ((string-equal subcmd "release")
         (reply-to message (release-lease env-name (source message))))
        ((string-equal subcmd "add")
  
negative.code:          (t
            (setf *pss-environments* (remove env-name *pss-environments* :test #'string-equal))
            (save-env-data)
            (reply-to message "Removed ~a from environments." env-name)))))))