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

@@ -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)