1.1--- a/lisp/lib/cli/clap/macs.lisp	Sun Jul 28 21:47:57 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/macs.lisp	Mon Jul 29 20:55:09 2024 -0400
     1.3@@ -47,16 +47,6 @@
     1.4      (setq *arg* arg)
     1.5        ,@body))
     1.6 
     1.7-(declaim (inline walk-cli-slots))
     1.8-(defun walk-cli-slots (cli)
     1.9-  "Walk the plist CLI, performing actions as necessary based on the slot
    1.10-keys."
    1.11-  (loop for kv in (group cli 2)
    1.12-        when (eql :thunk (car kv))
    1.13-        return (let ((th (cdr kv)))
    1.14-                 (if (or (functionp th) (symbolp th)) (funcall th) (compile nil (lambda () th)))))
    1.15-  cli)
    1.16-
    1.17 ;; TODO 2023-10-06: 
    1.18 ;; (defmacro gen-cli-thunk (pvars &rest thunk)
    1.19 ;;   "Generate and return a function based on THUNK suitable for the :thunk