(require 'sexp-move)
(defun sexp-move-keybind ()
  (local-set-key (kbd "M-f") 'sexp-move-forward)
  (local-set-key (kbd "M-b") 'sexp-move-backward))
(dolist (hook '(lisp-mode-hook
                emacs-lisp-mode-hook
                lisp-interaction-mode-hook
                inferior-gauche-mode-hook
                scheme-mode-hook))
  (add-hook hook 'sexp-move-keybind))