Commit 3ce6aa64 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Have display-environment not return failure.

parent 611490bb
......@@ -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 ()
......
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