Commit 2c1de32c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Add docstrings for the latest two commands.

parent cc1336b9
...@@ -53,10 +53,14 @@ ...@@ -53,10 +53,14 @@
(sort (mapcar 'command-name (public-commands)) 'string<)) (sort (mapcar 'command-name (public-commands)) 'string<))
(defun show-commands () (defun show-commands ()
"print the (sorted list of) names of all the public commands of asdf-tools."
(format t "~{~A~^ ~}~%" (public-command-strings)) (format t "~{~A~^ ~}~%" (public-command-strings))
(values)) (values))
(defun makefile-targets () (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))) (let ((c (public-command-strings)))
;;(format t ".PHONY: ~{~A~^ ~}~%~%~{~A:~%~}~%" c c)) ;;(format t ".PHONY: ~{~A~^ ~}~%~%~{~A:~%~}~%" c c))
(format t "~{~A:~%~}~%" c)) (format t "~{~A:~%~}~%" c))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment