Corrections

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))