From d233a4d707a69e7f9e400831b7e772786f5fbd9f Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:22 -0500 Subject: [PATCH] Added the ability to accept an S-expression as an argument. --- git-repl.cl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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" -- 2.20.1