Skip to content
Snippets Groups Projects
Commit 3ce6aa64 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Have display-environment not return failure.

parent 611490bb
No related branches found
No related tags found
No related merge requests found
......@@ -69,7 +69,8 @@
(let ((*package* (find-package :asdf-tools)))
(loop :for variable-name :in (mapcar 'first *environment-variable-specs*)
:do (format t "~T~S = ~S~%"
variable-name (symbol-value variable-name)))))
variable-name (symbol-value variable-name))))
(values))
(defun test-definition (def)
(block ()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment