From f07bcf519ad0e2fc8cc1f88db0cc7e8744b06670 Mon Sep 17 00:00:00 2001 From: Silas Vedder Date: Fri, 13 May 2022 18:58:40 +0200 Subject: [PATCH] Corrections. Correction. Corrections... --- data.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/data.lisp b/data.lisp index 7a5df37..89cd582 100644 --- a/data.lisp +++ b/data.lisp @@ -21,17 +21,18 @@ (defvar *bible*) (defun load-bibles () + (ensure-directories-exist (uiop:native-namestring "~/.bible/")) (if (uiop:file-exists-p (uiop:native-namestring "~/.bible/menge.sexp")) - (progn - (setf *mng* (init-bible "mng")) - (setf *kjv* (init-bible "kjv")) - (setf *vul* (init-bible "vul")) - (setf *grb* (init-bible "grb"))) (progn (setf *mng* (load-bible "~/.bible/menge.sexp")) (setf *vul* (load-bible "~/.bible/vulgata.sexp")) (setf *grb* (load-bible "~/.bible/greek.sexp")) - (setf *kjv* (load-bible "~/.bible/kjv.sexp"))))) + (setf *kjv* (load-bible "~/.bible/kjv.sexp"))) + (progn + (setf *mng* (init-bible "mng")) + (setf *kjv* (init-bible "kjv")) + (setf *vul* (init-bible "vul")) + (setf *grb* (init-bible "grb"))))) (load-bibles)