anchor.diff:            (rove:ok (eq t (lem-base:any-modified-buffer-p))))))))
   
   (rove:deftest get-buffer
  -  (with-buffer-list-test ()
  +  (with-buffer-list ()
       (rove:testing "arugment type"
         (rove:ok (rove:signals (lem-base:get-buffer 1) 'type-error))
         (rove:ok (rove:signals (lem-base:get-buffer nil) 'type-error))
  
positive.code: - get-file-buffer
  |#
  
  (defmacro with-buffer-list-test ((&optional buffer-list) &body body)
    `(let ((lem-base::*buffer-list* ,buffer-list))
       ,@body))
  
  (rove:deftest buffer-list
    (with-buffer-list-test ()
      (rove:ok (null (lem-base:buffer-list)))
      (let ((buffer (lem-base:make-buffer "a" :temporary t)))
        (rove:ok (lem-base:bufferp buffer))
  
negative.code:         (rove:ok (eq buffer-c (lem-base:get-buffer buffer-c)))))))
  
  (rove:deftest unique-buffer-name
    (with-buffer-list ()
      (rove:testing "argument type"
        (rove:ok (rove:signals (lem-base:unique-buffer-name (lem-base:make-buffer nil :temporary t)) 'type-error))
        (rove:ok (rove:signals (lem-base:unique-buffer-name 1) 'type-error))
  