Added main.

2 years ago · 1243222d9d
2 changed files with 7 additions and 1 deletions
--- a/cl-bible.lisp
+++ b/cl-bible.lisp
@ -126,3 +126,7 @@
 (defun start ()
  (initialize #'on-new-window)
  (open-browser))
+
+(defun main ()
+  (start)
+  (loop))
--- a/package.lisp
+++ b/package.lisp
@ -1,4 +1,6 @@
 ;;;; package.lisp

 (defpackage #:cl-bible
-  (:use #:cl #:clog #:clog-gui))
+  (:use #:cl #:clog #:clog-gui)
+  (:exports main
+            start))