anchor.diff:       (run-indent-test ,(string name) ,before ,after)))
   
   (defun run-indent-test (name before-text after-text)
  -  (let ((buffer (lem:make-buffer (format nil "*indent-test ~A*" name)
  -                                 :syntax-table lem-lisp-syntax:*syntax-table*
  -                                 :temporary t)))
  -    (setf (lem:variable-value 'lem:calc-indent-function :buffer buffer)
  +  (let ((buffer (lem-base:make-buffer (format nil "*indent-test ~A*" name)
  +                                      :syntax-table lem-lisp-syntax:*syntax-table*
  +                                      :temporary t)))
  +    (setf (lem-base:variable-value 'lem-base:calc-indent-function :buffer buffer)
             'lem-lisp-syntax:calc-indent)
  -    (lem:erase-buffer buffer)
  -    (lem:with-point ((p (lem:buffer-point buffer)))
  -      (lem:insert-string p before-text))
  -    (lem:indent-buffer buffer)
  -    (unless (rove:ok (string= after-text (lem:buffer-text buffer)) name)
  +    (lem-base:erase-buffer buffer)
  +    (lem-base:with-point ((p (lem-base:buffer-point buffer)))
  +      (lem-base:insert-string p before-text))
  +    (lem-base:indent-buffer buffer)
  +    (unless (rove:ok (string= after-text (lem-base:buffer-text buffer)) name)
         (report name
  -              (lem:buffer-text buffer)
  +              (lem-base:buffer-text buffer)
                 after-text))))
   
   (defun diff-text (text1 text2)
  
positive.code: (defpackage :lem-tests/lisp-syntax/indent-test
    (:use :cl)
    (:import-from :lem
                  :add-hook)
    (:import-from :lem-lisp-syntax)
    (:import-from :lem-tests/utilities
                  :sample-file)
  
negative.code: ")
  
  (defun get-location-from-buffer-point (point pathname)
    (format nil "~A:~D:~A" pathname (lem-base:line-number-at-point point) (lem-base:line-string point)))
  
  (defun indent-test-for-file (pathname)
    (let ((buffer (lem-base:find-file-buffer pathname :temporary t :enable-undo-p nil)))
      (setf (lem-base:variable-value 'lem-base:calc-indent-function :buffer buffer)
            'lem-lisp-syntax:calc-indent)
      (lem-base:with-point ((p (lem-base:buffer-point buffer)))
        (lem-base:buffer-start p)
        (loop
          (lem-base:with-point ((start p))
            (unless (lem-base:form-offset p 1)
              (return))
            (lem-base:skip-space-and-comment-forward p)
            (let ((text (lem-base:points-to-string start p))
                  (name (get-location-from-buffer-point start pathname)))
              (run-indent-test name text text)))))))
  
  