anchor.diff:        (rove:ok (equal "b" (lem-base:unique-buffer-name "b"))))))
   
   (rove:deftest delete-buffer
  -  (with-buffer-list ()
  -    (rove:testing "argument type"
  -      (rove:ok (rove:signals (lem-base:delete-buffer 1) 'type-error))
  -      (rove:ok (rove:signals (lem-base:delete-buffer "name") 'type-error))
  -      (rove:ok (handler-case (lem-base:delete-buffer (lem-base:make-buffer nil :temporary t))
  -                 (error ()
  -                   nil)
  -                 (:no-error (result)
  -                   (declare (ignore result))
  -                   t)))))
  +  (argument-type-is-buffer-test #'lem-base:delete-buffer)
     (with-buffer-list ()
       (let ((buffer-a (lem-base:make-buffer "a"))
             (buffer-b (lem-base:make-buffer "b"))
  
positive.code:         (rove:ok (eq (lem-base:get-next-buffer (lem-base:make-buffer nil :temporary t)) nil)))))
  
    (rove:deftest get-previous-buffer
      (argument-type-test #'lem-base:get-previous-buffer)
      (buffer-list-length=0-case #'lem-base:get-previous-buffer)
      (buffer-list-length=1-case #'lem-base:get-previous-buffer)
      (with-buffer-list ()
  
negative.code:         (rove:ok (eq buffer-c (lem-base:get-buffer buffer-c)))))))
  
  (rove:deftest unique-buffer-name
    (argument-type-is-buffer-test #'lem-base:unique-buffer-name :allow-string-p t)
    (with-buffer-list ()
      (rove:ok (equal "foo" (lem-base:unique-buffer-name "foo")))
      (let ((buffer-a (lem-base:make-buffer "a"))
  