anchor.diff:                        (list buffer-a<2>
                               buffer-a<1>
                               buffer-a)))
  -      (with-buffer-list-test ((copy-list (lem-base:buffer-list)))
  +      (with-buffer-list ((copy-list (lem-base:buffer-list)))
           (lem-base:delete-buffer buffer-a<2>)
           (rove:ok (equal "a<2>" (lem-base:unique-buffer-name "a")))
           (rove:ok (equal (lem-base:buffer-list)
                           (list buffer-a<1>
                                 buffer-a))))
  -      (with-buffer-list-test ((copy-list (lem-base:buffer-list)))
  +      (with-buffer-list ((copy-list (lem-base:buffer-list)))
           (lem-base:delete-buffer buffer-a<1>)
           (rove:ok (equal "a<1>" (lem-base:unique-buffer-name "a")))
           (rove:ok (equal (lem-base:buffer-list)
                           (list buffer-a<2>
                                 buffer-a))))
  -      (with-buffer-list-test ((copy-list (lem-base:buffer-list)))
  +      (with-buffer-list ((copy-list (lem-base:buffer-list)))
           (lem-base:delete-buffer buffer-a)
           (rove:ok (equal "a" (lem-base:unique-buffer-name "a")))
           (rove:ok (equal (lem-base:buffer-list)
  
positive.code:                    nil)
                   (:no-error (buffer)
                     (lem-base:bufferp buffer))))))
    (with-buffer-list-test ()
      (rove:ok (null (lem-base:get-buffer "a")))
      (let (buffer-a buffer-b buffer-c)
        (rove:testing "buffer-a"
  
negative.code:                  (:no-error (name)
                     (and (stringp name)
                          (string= name "abc")))))))
    (with-buffer-list ()
      (rove:ok (equal "foo" (lem-base:unique-buffer-name "foo")))
      (let ((buffer-a (lem-base:make-buffer "a"))
            buffer-a<1>
  