From 1c7929a5670b664e576b056a4a7b767bcb1c3d08 Mon Sep 17 00:00:00 2001
From: Gary King <gwking@franz.com>
Date: Mon, 31 Aug 2009 12:56:23 -0400
Subject: [PATCH] use  in default *central-registry*

---
 asdf.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/asdf.lisp b/asdf.lisp
index cd066a5f..24e5f9db 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -532,7 +532,7 @@ called with an object of type asdf:system."
 	    (system-source-file (cdr system-pair)))))))
 
 (defvar *central-registry*
-  '(*default-pathname-defaults*)
+  `((directory-namestring *default-pathname-defaults*))
 "A list of 'system directory designators' ASDF uses to find systems.
 
 A 'system directory designator' is a pathname or a function 
-- 
GitLab