From dcbdd1e17abf514b8acc17d8d893264e3c36daac Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Tue, 7 Jul 2015 22:16:57 -0400
Subject: [PATCH] tools: note why we still need to uglify forms for now.

---
 tools/test-environment.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/test-environment.lisp b/tools/test-environment.lisp
index d619d5c4..8e58fd6c 100644
--- a/tools/test-environment.lisp
+++ b/tools/test-environment.lisp
@@ -220,7 +220,7 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s=
 (defun run-test-lisp (activity forms &key (output t) log lisp debugger)
   ;; Activity is of the form "compiling ASDF", "running this test", etc.
   (format t "~&Now ~A...~@[ (log in ~A)~]~%" activity log)
-  (let* ((eval (compose-non-special-string forms))
+  (let* ((eval (compose-non-special-string forms)) ;; at least avoiding ~% is necessary on Windows.
          (command (lisp-invocation-arglist :implementation-type (get-lisp lisp)
                                            :eval eval :debugger debugger))
          (interactive (if (eq output :interactive) :interactive nil))
-- 
GitLab