Small cleanup for ECL.

diff --git a/ecl.lisp b/ecl.lisp
index cbb9bc4..b8e5cd9 100644 (file)
--- a/ecl.lisp
+++ b/ecl.lisp
@@ -39,7 +39,6 @@
         :unless (eq f 'module-provide-asdf)
         :collect #'(lambda (name)
                      (let ((l (multiple-value-list (funcall f name))))
-                       (and (first l) (register-pre-built-system name))
+                       (and (first l) (register-pre-built-system (coerce-name name)))
                        (values-list l)))))
 #+win32 (push '("asd" . si::load-source) ext:*load-hooks*)
-(pushnew (translate-logical-pathname "SYS:") *central-registry*)