Skip to content
Snippets Groups Projects
Commit b180bd0b authored by Robert Goldman's avatar Robert Goldman
Browse files

Add DISPLAY-ENVIRONMENT function.

parent 2b4c49f7
No related branches found
No related tags found
No related merge requests found
...@@ -64,6 +64,12 @@ ...@@ -64,6 +64,12 @@
(setf (gethash envvar h) x) (setf (gethash envvar h) x)
(setf (gethash short 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) (defun test-definition (def)
(block () (block ()
(match def (match def
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment