(fset 'split-for-lcd-bottom
   "\C-x2\C-u2\C-x^\C-xo")

(defun split-for-lcd ()
  (interactive)
  (split-window-vertically)
  (enlarge-window 2)
  (other-window 1))

(defun meeting-scheme ()
  (interactive)
  (setq scheme-program-name "meeting-scheme")
  (do-whatever-meeting-scheme))

(defun meeting-scheme-practice ()
  (interactive)
  (setq scheme-program-name "meeting-scheme-practice")
  (do-whatever-meeting-scheme))

(defun do-whatever-meeting-scheme ()
  (interactive)
  (split-for-lcd)
  (load "chez-xscheme")
  (run-scheme nil)
  (pop-to-buffer "*scheme*"))