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:                  (:no-error (name)
                     (and (stringp name)
                          (string= name "abc")))))))
    (with-buffer-list-test ()
      (rove:ok (equal "foo" (lem-base:unique-buffer-name "foo")))
      (let ((buffer-a (lem-base:make-buffer "a"))
            buffer-a<1>
  
negative.code:                         (lem-base:buffer-list)))))))
  
  (rove:deftest any-modified-buffer-p
    (with-buffer-list ()
      (let ((buffer-a (lem-base:make-buffer "a"))
            (buffer-b (lem-base:make-buffer "b"))
            (buffer-c (lem-base:find-file-buffer (sample-file "text.txt"))))
  