diff --git a/cl-bible.lisp b/cl-bible.lisp
index 3c4dbf2..3e8b5de 100644
--- a/cl-bible.lisp
+++ b/cl-bible.lisp
@@ -130,3 +130,6 @@
 (defun main ()
   (start)
   (loop))
+
+(defun build ()
+  (sb-ext:save-lisp-and-die "bible" :executable t :toplevel #'main))
diff --git a/package.lisp b/package.lisp
index e19576d..a183cce 100644
--- a/package.lisp
+++ b/package.lisp
@@ -2,5 +2,4 @@
 
 (defpackage #:cl-bible
   (:use #:cl #:clog #:clog-gui)
-  (:exports main
-            start))
+  (:exports start))