Commit b180bd0b authored by Robert Goldman's avatar Robert Goldman

Add DISPLAY-ENVIRONMENT function.

parent 2b4c49f7
......@@ -64,6 +64,12 @@
(setf (gethash envvar h) x)
(setf (gethash short h) x))))
(defun display-environment ()
(format t "Environment for ASDF tools:~%")
(loop :for variable-name :in (mapcar 'first *environment-variable-specs*)
:do (format t "~T~A = ~A~%"
variable-name (symbol-value variable-name))))
(defun test-definition (def)
(block ()
(match def
......
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