From: Saba Saba <saba@sabadev.xyz>
Date: Thu, 9 Feb 2023 17:26:22 +0000 (-0500)
Subject: Added the ability to accept an S-expression as an argument.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=d233a4d707a69e7f9e400831b7e772786f5fbd9f;p=git-repl.git

Added the ability to accept an S-expression as an argument.
---

diff --git a/git-repl.cl b/git-repl.cl
index 759c31f..8a4bf03 100644
--- a/git-repl.cl
+++ b/git-repl.cl
@@ -233,9 +233,12 @@
       (force-output))))
 
 (defun main ()
-  (progn
-    (help)
-    (repl)))
+  (let ((args (cdr *posix-argv*)))
+    (if args
+        (print (eval (read-from-string (str:join " " args))))
+        (progn
+          (help)
+          (repl)))))
 
 (defun-public make (&key (executable-name *installation-file*) (source-file "git-repl.cl"))
   "Compiles the current state into an executable"