From c0cb84ea5ef596ba760b08431be07b9079477498 Mon Sep 17 00:00:00 2001
From: Silas Vedder <singingfox123@protonmail.com>
Date: Thu, 5 May 2022 14:20:18 +0200
Subject: [PATCH] Added verse class.

---
 search.lisp | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/search.lisp b/search.lisp
index 4bd8d9d..0916f38 100644
--- a/search.lisp
+++ b/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)))