diff --git a/test/test-logical-pathname.script b/test/test-logical-pathname.script index e5aae8befdab5f75c7fab19c73990c588dc7e3d6..82807e35ae05cb6688d3107b91c63c56167bc543 100644 --- a/test/test-logical-pathname.script +++ b/test/test-logical-pathname.script @@ -30,14 +30,13 @@ '(:source-registry (:directory #p"ASDF:test;") :ignore-inherited-configuration)) (load-system :test-force :force t)) - #-allegro ;; Allegro 8.2 seems to have trouble with logical-pathnames. disable for now. (progn (format t "Test logical pathnames in source-registry, recursive~%") (clear-system :test-force) (setf *central-registry* '()) (initialize-source-registry ;; Bug: Allegro Express 8.2 incorrectly reads #p"ASDF:" as relative. - '(:source-registry (:tree #-allegro #p"ASDF:" #+allegro #.(asdf::pathname-root #p"ASDF")) + '(:source-registry (:tree #-allegro #p"ASDF:" #+allegro #.(asdf::pathname-root #p"ASDF:")) :ignore-inherited-configuration)) (load-system :test-force :force t))