Disarchive/.dir-locals.el

((scheme-mode
  . ((geiser-active-implementations . (guile))
     (eval . (progn
               (let ((top (locate-dominating-file default-directory
                                                  ".dir-locals.el")))
                 (add-to-list 'geiser-guile-load-path top))))
     (eval . (put '$record 'scheme-indent-function 1))
     (eval . (put 'call-with-metadataless-compressor-pipe
                  'scheme-indent-function 2))
     (eval . (put 'call-with-port 'scheme-indent-function 1))
     (eval . (put 'call-with-xz-input-port 'scheme-indent-function 1))
     (eval . (put 'call-with-xz-input-port/compressed
                  'scheme-indent-function 1))
     (eval . (put 'call-with-xz-output-port 'scheme-indent-function 1))
     (eval . (put 'generator-let* 'scheme-indent-function 1))
     (eval . (put 'property 'scheme-indent-function 1))
     (eval . (put 'set-fields 'scheme-indent-function 1))
     (eval . (put 'test-when 'scheme-indent-function 1))))
 (nil
  . ((indent-tabs-mode . nil))))