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

Korrekturen.

master
Silas Vedder 3 years ago
parent
76c6708b82
commit
a8709b17d6
1 changed files with 3 additions and 3 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 6
      search.lisp

6
search.lisp
Unescape View File

@ -3,10 +3,10 @@
(in-package #:cl-bible.search) (in-package #:cl-bible.search)
(defun find-in-bible (bible phrase) (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) (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) (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))

Write Preview
Loading…
Cancel
Save