Browse Source

Added verse class.

master
Silas Vedder 3 years ago
parent
commit
c0cb84ea5e
  1. 12
      search.lisp

12
search.lisp

@ -2,6 +2,18 @@
(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)
(uiop:split-string string :separator '(#\Tab)))

Loading…
Cancel
Save