From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 17:26:19 +0000 (-0500)
Subject: Implemented a proper REPL
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=23356ef11e0e7b4ef1a16776f11ac727e3498f17;p=git-repl.git

Implemented a proper REPL
---

diff --git a/git-repl.cl b/git-repl.cl
index 5b8ee84..daef446 100644
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -14,18 +14,6 @@
        ,@body
        (write-line "You have modified files. Please stash or commit your files before proceeding.")))
 
-(defvar *installation-file* "C:/bin/git-repl.exe" "The filepath to install to when running (make-install)")
-
-(defun make (executable-name)
-  "Compiles the current state into an executable"
-  (progn
-    (load (compile-file "git-repl.cl"))
-    (save-lisp-and-die executable-name :executable t)))
-
-(defun make-install ()
-  "Compiles the current state into an executable and installs it to *installation-file*"
-  (make *installation-file*))
-
 (defun add-quotes (text)
   (format nil "\"~a\"" text))
 
@@ -136,4 +124,25 @@
   (write-line "Execute (help) to see these instructions again.")
   nil)
 
-(help)
+(defun main ()
+  (progn
+    (help)
+    (loop
+      (progn
+        (format t "> ")
+        (force-output)
+        (print (eval (read)))
+        (terpri)
+        (force-output)))))
+
+(defvar *installation-file* "C:/bin/git-repl.exe" "The filepath to install to when running (make-install)")
+
+(defun make (executable-name)
+  "Compiles the current state into an executable"
+  (progn
+    (load (compile-file "git-repl.cl"))
+    (save-lisp-and-die executable-name :toplevel #'main :executable t)))
+
+(defun make-install ()
+  "Compiles the current state into an executable and installs it to *installation-file*"
+  (make *installation-file*))