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

1 files changed, 3 insertions, 2 deletions

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)