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 (file)
--- 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"