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

Added verse class.

Browse Source
This commit is contained in:
Silas Vedder 2022-05-05 14:20:18 +02:00
parent be89912b74
commit c0cb84ea5e
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
search.lisp
View File

@ -2,6 +2,18 @@
(in-package #:cl-bible) (in-package #:cl-bible)
(defclass verse ()
((%bname :initarg :bname
:reader bname)
(%bsname :initarg :bsname
:reader bsname)
(%chapter :initarg :chapter
:reader chapter)
(%number :initarg :number
:reader vnumber)
(%text :initarg :text
:reader text)))
(defun string->verse (string) (defun string->verse (string)
(uiop:split-string string :separator '(#\Tab))) (uiop:split-string string :separator '(#\Tab)))