From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 17:26:21 +0000 (-0500)
Subject: Factored out the REPL.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=21369982d696c898b6ec7d96edba1aebaeaa5aa2;p=git-repl.git

Factored out the REPL.
---

diff --git a/git-repl.cl b/git-repl.cl
index beadcc5..a024b67 100644
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -225,16 +225,19 @@
   (write-line "Run (exit) to exit gracefully.")
   nil)
 
+(defun repl ()
+  (loop
+    (progn
+      (format t "> ")
+      (force-output)
+      (print (eval (read)))
+      (terpri)
+      (force-output))))
+
 (defun main ()
   (progn
     (help)
-    (loop
-      (progn
-        (format t "> ")
-        (force-output)
-        (print (eval (read)))
-        (terpri)
-        (force-output)))))
+    (repl)))
 
 (defun-public make (&key (executable-name *installation-file*) (source-file "git-repl.cl"))
   "Compiles the current state into an executable"