1.1--- a/lisp/lib/cli/multi.lisp	Thu Sep 12 16:48:47 2024 -0400
     1.2+++ b/lisp/lib/cli/multi.lisp	Thu Sep 12 22:38:22 2024 -0400
     1.3@@ -39,9 +39,9 @@
     1.4 When you save an executable lisp image with this function you should
     1.5 arrange for symlinks for each handled value of (ARG0) to be generated
     1.6 ."
     1.7-  `(defmain (:exit ,exit :export ,export)
     1.8-     (string-case ((pathname-name (arg0)) :default ,default)
     1.9-       ,@mains)))
    1.10+  `(cli/clap::defmain (:exit ,exit :export ,export)
    1.11+       (string-case ((pathname-name (arg0)) :default ,default)
    1.12+         ,@mains)))
    1.13 
    1.14 (defun make-symlinks (src &optional directory &rest names)
    1.15   "Make a set of symlinks from SRC to NAMES.