From e955869d2868a8cf867db44aad53534a92e10b92 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 9 Aug 2022 10:07:05 -0500
Subject: [change] the printout of ol show; [remove] uneeded stuff

---
 app/util.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'app/util.lisp')

diff --git a/app/util.lisp b/app/util.lisp
index 6bcf577..b657e51 100644
--- a/app/util.lisp
+++ b/app/util.lisp
@@ -34,5 +34,6 @@ command.
          (handler-case 
              (destructuring-bind ,args-pattern (clingon:command-arguments *cmd*)
                ,@body)
-           (error ()
+           (#+sbcl sb-kernel::arg-count-error
+            #+ccl ccl::simple-program-error (e)
              (clingon:print-usage *cmd* t)))))))
-- 
cgit v1.2.3