From 004c2b5628ba2db3297829a76a1e3983c62926ab Mon Sep 17 00:00:00 2001
From: mRnea <akannemre@gmail.com>
Date: Mon, 29 Jul 2024 23:15:38 +0300
Subject: some arrangements to fix quirks of symbols in the executable program
 note that (eq 'baz:foo bar:foo) is not true so some stuff that works in the
 repl fails in executable

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

(limited to 'util.lisp')

diff --git a/util.lisp b/util.lisp
index e4a9ccb..9f80adb 100644
--- a/util.lisp
+++ b/util.lisp
@@ -20,8 +20,9 @@
 (defun mklist (form)
   (if (listp form) form (list form)))
 
-(defun run (args &rest options)
-  (format t "~{~a~^ ~}~%" args)
+(defun run (args &rest options &key &allow-other-keys)
+  (unless (eq t (getf options :silence))
+    (format t "~{~a~^ ~}~%" args))
   (apply #'uiop:run-program args options))
 
 (defun from-root (path)
-- 
cgit v1.2.3