Factored out the REPL.

diff --git a/git-repl.cl b/git-repl.cl
index beadcc5..a024b67 100644 (file)
--- 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"