1.1--- a/lisp/lib/cli/clap/macs.lisp	Sun Sep 08 21:14:30 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/macs.lisp	Tue Sep 10 21:26:30 2024 -0400
     1.3@@ -78,5 +78,7 @@
     1.4       `(defun ,fn-name (&optional arg)
     1.5          "Parse the cli-opt-val *ARG*."
     1.6          (declare (ignorable arg))
     1.7-         ,@(when fn1 `((setf *arg* (funcall #',fn1 arg))))
     1.8+         ,@(if fn1
     1.9+               `((setf *arg* (print (funcall #',fn1 arg))))
    1.10+               `((setf *arg* arg)))
    1.11          ,@body)))))