silasfox/cl-bible
1
0
Fork 0
Code Issues 3 Pull Requests Projects 1 Releases Wiki Activity

Korrekturen.

Browse Source
This commit is contained in:
Silas Vedder 2022-05-05 15:25:27 +02:00
parent 76c6708b82
commit a8709b17d6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
search.lisp
View File

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