bin/ansible-inventory: Wrap `flet' of `getarg' around its body.

[distorted-ansible] / bin / ansible-inventory

diff --git a/bin/ansible-inventory b/bin/ansible-inventory
index 053f9bf..7e950de 100755 (executable)
--- a/bin/ansible-inventory
+++ b/bin/ansible-inventory
@@ -7,6 +7,8 @@
 
 (in-package #:ansible-inventory)
 
+(declaim (optimize debug))
+
 ;;;--------------------------------------------------------------------------
 ;;; General utilities.
 
@@ -235,13 +237,12 @@
                                  (args
                                   (pop args))
                                  (t
-                                  (error "missing argument"))))))
-                  (case (char arg i)
-                    (#\h (format t "usage: ~A FILE ...~%"
-                                 (pathname-name *progname*)))
-                    (t (error "unknown option `-~A'" (char arg i))))))
+                                  (error "missing argument")))))
+                    (case (char arg i)
+                      (#\h (format t "usage: ~A FILE ...~%"
+                                   (pathname-name *progname*)))
+                      (t (error "unknown option `-~A'" (char arg i)))))))
                (t (push arg args) (return)))))
-  (format t ";; remaining args = ~S~%" args)
   (dolist (arg args)
     (let ((*package* pkg))
       (load arg :verbose nil))))