From a8709b17d61743b2c42f54c77432f5a5eaa6bee2 Mon Sep 17 00:00:00 2001 From: Silas Vedder Date: Thu, 5 May 2022 15:25:27 +0200 Subject: [PATCH] Korrekturen. --- search.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))