1.1--- a/lisp/lib/cli/clap/ast.lisp	Fri Jul 26 19:28:10 2024 -0400
     1.2+++ b/lisp/lib/cli/clap/ast.lisp	Fri Jul 26 23:12:33 2024 -0400
     1.3@@ -17,9 +17,8 @@
     1.4 
     1.5 (defstruct (cli-ast (:constructor make-cli-ast (ast))) ast)
     1.6 
     1.7-(defgeneric cli-ast (self)
     1.8-  (:method ((self cli-ast))
     1.9-    (cli-ast-ast self)))
    1.10+(defmethod ast ((self cli-ast))
    1.11+  (cli-ast-ast self))
    1.12 
    1.13 (defgeneric proc-args (self args))
    1.14