gistfile1.el

(defun scala ()
  (interactive)
  (let ((classname-from-file (substring (buffer-name) 0 -6)))
    (shell-command
     (concat "scalac " buffer-file-name " && "
             "scala  -classpath . " (read-from-minibuffer "classname: " classname-from-file)))))