anchor.diff:                  (rove:ok (equal '(:local :global)
                                   (nreverse called-order)))))))))))
   
  -
  -(flet ((argument-type-test (function)
  -         (with-buffer-list ()
  -           (rove:testing "argument type"
  -             (rove:ok (rove:signals (funcall function nil) 'type-error))
  -             (rove:ok (rove:signals (funcall function 1) 'type-error))
  -             (rove:ok (rove:signals (funcall function "name") 'type-error))
  -             (rove:ok (rove:signals (funcall function #(#\a #\b)) 'type-error)))))
  -       (buffer-list-length=0-case (function)
  +(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))
  
positive.code:         (rove:ok (eq (lem-base:get-previous-buffer buffer-a) buffer-b))
          (rove:ok (eq (lem-base:get-previous-buffer (lem-base:make-buffer nil :temporary t)) nil))))))
  
  (rove:deftest unbury-buffer
    )
  
  (rove:deftest bury-buffer
    )
  
  (rove:deftest get-file-buffer
    )
  
negative.code:   (:import-from :alexandria))
  (in-package :lem-tests/buffer-list-test)
  
  (defmacro with-buffer-list ((&optional buffer-list) &body body)
    `(let ((lem-base::*buffer-list* ,buffer-list))
       ,@body))
  
  (defun argument-type-is-buffer-test (function &key allow-string-p)
    (with-buffer-list ()
      (rove:testing "argument type"
        (rove:ok (rove:signals (funcall function nil) 'type-error))
        (rove:ok (rove:signals (funcall function 1) 'type-error))
        (rove:ok (rove:signals (funcall function #(#\a #\b)) 'type-error))
        (unless allow-string-p
          (rove:ok (rove:signals (funcall function "name") 'type-error))))))
  
  (rove:deftest buffer-list
    (with-buffer-list ()
  