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.
15 lines
428 B
15 lines
428 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 (bible) (mapc (lambda (verse) (setf (cl-bible.verse:notes verse) nil)) bible)) (list cl-bible.data::*mng* cl-bible.data::*kjv* cl-bible.data::*vul* cl-bible.data::*grb*)) |
|
#+sbcl (sb-ext:save-lisp-and-die "bible" :executable t :toplevel #'main))
|
|
|