From a6f7e53b6e5d0ffd3ed77aaa90b956359f1f324c Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:16 -0500 Subject: [PATCH] Defined a git macro to make it easier to define git commands. --- git-skipper.cl | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/git-skipper.cl b/git-skipper.cl index e69de29..66a0c18 100644 --- a/git-skipper.cl +++ b/git-skipper.cl @@ -0,0 +1,7 @@ +(ql:quickload "cl-utilities") + +(in-package :cl-user) + +(defmacro git (&rest arguments) + `(mapcar (lambda (x) (string-trim " " x)) + (cl-utilities:split-sequence #\newline (uiop:run-program (list "git" ,@arguments) :input nil :output :string)))) -- 2.20.1