From 0fc478b5e62da89be42d46017c68cc3f90e34c99 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Sun, 13 Sep 2015 20:50:17 -0400
Subject: [PATCH] Fix renamed debug function in script-support.

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

diff --git a/test/script-support.lisp b/test/script-support.lisp
index 4b822573d..f835b91af 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -553,7 +553,7 @@ is bound, write a message and exit on an error.  If
 
 (defun registry ()
   (let ((sr (asymval :*source-registry*)))
-    (when sr (sort (hta sr) 'string< :key 'car))))
+    (when sr (sort (hash-table-alist sr) 'string< :key 'car))))
 
 (defun configure-asdf ()
   (format t "Configuring ASDF~%")
-- 
GitLab