   "Return the name of the symbol at point, otherwise nil."
   (or (thing-at-point 'symbol) ""))
 
+(defun inf-carp-build ()
+  "Send a command to the inferior Carp to build a form.
+See variable `inf-carp-var-build-command'."
+  (interactive)
+  (comint-proc-query (inf-carp-proc) (format inf-carp-build-command)))
+
+(defun inf-carp-build-and-run ()
+  "Send a command to the inferior Carp to build a form.
+See variable `inf-carp-var-build-command'."
+  (interactive)
+  (inf-carp-eval-buffer)
+  (comint-proc-query (inf-carp-proc) (format inf-carp-build-and-run-command)))
+
 (defun inf-carp-bake (var)
   "Send a command to the inferior Carp to bake a form.
 See variable `inf-carp-var-bake-command'."

        ["Load file" inf-carp-load-file t]
        "--"
        ["Show arglist" inf-carp-show-arglist t]
        ["Show documentation for var" inf-carp-show-var-documentation t]
        ["Show source for var" inf-carp-show-var-source t]
        "--"
        ["Clear REPL" inf-carp-clear-repl-buffer]))

        ["Set REPL ns" inf-carp-set-ns t]
        "--"
        ["Show arglist" inf-carp-show-arglist t]
        ;;["Show documentation for var" inf-carp-show-var-documentation t]
        ["Show source for var" inf-carp-show-var-source t]
        ["Show vars in ns" inf-carp-show-ns-varst]
        ["Apropos" inf-carp-apropos t]
