diff --git a/test/script-support.lisp b/test/script-support.lisp index 4b822573d3f7f0473b380c2a8fc14b464d06312b..f835b91afcf849b8811dff8d782cad5d47ad7026 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~%")