Corrections

3 years ago · 0478013290
1 changed files with 3 additions and 1 deletions
--- a/cl-bible.lisp
+++ b/cl-bible.lisp
@ -11,5 +11,7 @@
  (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*))
+  (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))