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