chiark / gitweb /
bin/ansible-inventory: Wrap `flet' of `getarg' around its body.
authorMark Wooding <mdw@distorted.org.uk>
Wed, 8 Jul 2015 10:02:48 +0000 (11:02 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Thu, 9 Jul 2015 08:39:00 +0000 (09:39 +0100)
Eventually it'll even be used for something.

bin/ansible-inventory

index e7277f865fbf82c32b44fca836d5c77f1c38705f..7e950def999c975ffef0e5f52d57bfd0c462b57e 100755 (executable)
                                  (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)))))
   (dolist (arg args)
     (let ((*package* pkg))