diff --git a/search.lisp b/search.lisp index 54d5303..289f952 100644 --- a/search.lisp +++ b/search.lisp @@ -3,10 +3,10 @@ (in-package #:cl-bible.search) (defun find-in-bible (bible phrase) - (remove-if-not (lambda (verse) (search phrase (text verse))) bible)) + (remove-if-not (lambda (verse) (search phrase (v:text verse))) bible)) (defun find-book (bible book) - (remove-if-not (lambda (verse) (search book (bname verse))) bible)) + (remove-if-not (lambda (verse) (search book (v:bname verse))) bible)) (defun find-chapter (book chapter) - (remove-if-not (lambda (verse) (string= chapter (chapter verse))) book)) + (remove-if-not (lambda (verse) (string= chapter (v:chapter verse))) book))