ambrevar/guix: Add `guix-run'.

.local/share/common-lisp/source/ambrevar/guix.lisp

@@ -75,3 +75,13 @@
 (defun delete-store-items (items)
   "Garbage-collect items."
   (apply #'$:run* "guix" "gc" "--delete" items))
+
+(export-always 'guix-run)
+(defun guix-run (package &optional (executable package) &rest args) ; TODO: Rename to `run'?
+  "Garbage-collect items.
+If EXECUTABLE is nil, PACKAGE is used instead."
+  (apply #'cmd:cmd
+         "guix" "environment" "--ad-hoc" package
+         "--"
+         (or executable package)
+         args))