From 2c1de32c0d255e6874b71e3cd6e173f16cd8071f Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 2 Jun 2014 00:49:34 -0400
Subject: [PATCH] Add docstrings for the latest two commands.

---
 tools/main.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tools/main.lisp b/tools/main.lisp
index 1810cc018..fef8ee5c7 100644
--- a/tools/main.lisp
+++ b/tools/main.lisp
@@ -53,10 +53,14 @@
   (sort (mapcar 'command-name (public-commands)) 'string<))
 
 (defun show-commands ()
+  "print the (sorted list of) names of all the public commands of asdf-tools."
   (format t "~{~A~^ ~}~%" (public-command-strings))
   (values))
 
 (defun makefile-targets ()
+  "print declaration for the public commands of asdf-tools as as many Makefile targets
+so that, when included in the Makefile, they will enable shell completion
+based on a list of targets"
   (let ((c (public-command-strings)))
     ;;(format t ".PHONY: ~{~A~^ ~}~%~%~{~A:~%~}~%" c c))
     (format t "~{~A:~%~}~%" c))
-- 
GitLab