Commit 0fc478b5 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix renamed debug function in script-support.

parent 3a9a9b19
......@@ -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~%")
......
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