You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
347 B
17 lines
347 B
;;;; cl-bible.lisp |
|
|
|
(in-package #:cl-bible) |
|
|
|
(defun start () |
|
(initialize #'c:on-new-window) |
|
(open-browser)) |
|
|
|
(defun main () |
|
(start) |
|
(loop)) |
|
|
|
(defun build () |
|
(mapc (lambda (verse) |
|
(setf (cl-bible.verse:notes verse) nil)) |
|
cl-bible.data:*bible*) |
|
#+sbcl (sb-ext:save-lisp-and-die "bible" :executable t :toplevel #'main))
|
|
|