From 49b58b2d57eb9ae5a5d587bf6144f198797da0a2 Mon Sep 17 00:00:00 2001
From: mRnea <akannemre@gmail.com>
Date: Mon, 29 Jul 2024 00:36:06 +0300
Subject: minor change to run to make it more generic

---
 util.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'util.lisp')

diff --git a/util.lisp b/util.lisp
index b97b0fa..e4a9ccb 100644
--- a/util.lisp
+++ b/util.lisp
@@ -20,9 +20,9 @@
 (defun mklist (form)
   (if (listp form) form (list form)))
 
-(defun run (args)
+(defun run (args &rest options)
   (format t "~{~a~^ ~}~%" args)
-  (uiop:run-program args :output *standard-output*))
+  (apply #'uiop:run-program args options))
 
 (defun from-root (path)
   (merge-pathnames path (asdf:system-source-directory :cl-forth)))
-- 
cgit v1.2.3