From aa7e4052fd22361ecf346ae1a2f6f30db0202c5c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Sat, 12 Oct 2024 02:16:30 -0300
Subject: Add surrounded parser

---
 input.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'input.lisp')

diff --git a/input.lisp b/input.lisp
index dcea8f6..4edf6aa 100644
--- a/input.lisp
+++ b/input.lisp
@@ -25,6 +25,9 @@
                  :file (file input)
                  :cursor (+ (cursor input) amount)))
 
+(defun input-sub (input1 input2)
+  (- (cursor input1) (cursor input2)))
+
 (defun from-string (str)
   (make-instance 'input :data str))
 
-- 
cgit v1.2.3