- (maphash (lambda (host plist)
- (print-json-mapping host
- (print-json-map
- (do ((plist plist (cddr plist)))
- ((endp plist))
- (print-json-mapping (car plist)
- (print-json-simple (cadr plist)))))))
- *hosts*)))))))
+ (print-json-mapping "hostvars"
+ (print-json-map
+ (maphash (lambda (host plist)
+ (print-json-mapping host
+ (print-json-map
+ (do ((plist plist (cddr plist)))
+ ((endp plist))
+ (print-json-mapping (car plist)
+ (print-json-simple (cadr plist)))))))
+ *hosts*)))))))))
+
+;;;--------------------------------------------------------------------------
+;;; Main program.
+
+#+cl-launch
+(progn
+ (parse-command-line cl-launch:*arguments*)
+ (run-hooks)
+ (output))