anchor.diff:          (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))
  -      (rove:ok (rove:signals (lem-base:unique-buffer-name #(100 200)) 'type-error))
  -      (rove:ok (handler-case (lem-base:unique-buffer-name "abc")
  -                 (error ()
  -                   nil)
  -                 (:no-error (name)
  -                   (and (stringp name)
  -                        (string= name "abc")))))))
  +  (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"))
  
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 (equal '(:local :global)
                                  (nreverse called-order)))))))))))
  
  (flet ((buffer-list-length=0-case (function)
           (with-buffer-list ()
             (assert (null (lem-base:buffer-list)))
             (rove:ok (eq (funcall function (lem-base:make-buffer nil :temporary t))
  