Skip to content
Snippets Groups Projects
Commit 4b8e6a63 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.26.73: fix a logical-pathname issue on ECL.

Also, tweak some tests some more.
parent 950d4eeb
No related branches found
No related tags found
No related merge requests found
...@@ -140,6 +140,7 @@ located." ...@@ -140,6 +140,7 @@ located."
(defmethod builtin-system-p ((s system)) (defmethod builtin-system-p ((s system))
(let* ((system (find-system s nil)) (let* ((system (find-system s nil))
(sysdir (and system (component-pathname system))) (sysdir (and system (component-pathname system)))
(truesysdir (and sysdir (truename* sysdir)))
(impdir (lisp-implementation-directory :truename t))) (impdir (lisp-implementation-directory :truename t)))
(and sysdir impdir (pathname-match-p (truename sysdir) (wilden impdir)) t))) (and truesysdir impdir (pathname-match-p truesysdir (wilden impdir)) t)))
...@@ -15,6 +15,7 @@ ...@@ -15,6 +15,7 @@
(assert file1-date) (assert file1-date)
;; unforced, date should stay same ;; unforced, date should stay same
(touch-file "test-force.asd" :timestamp date1)
(touch-file "file1.lisp" :timestamp date1) (touch-file "file1.lisp" :timestamp date1)
(touch-file file1 :timestamp date2) (touch-file file1 :timestamp date2)
(asdf:operate 'asdf:load-op 'test-force) (asdf:operate 'asdf:load-op 'test-force)
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
(setf *central-registry* '()) (setf *central-registry* '())
(initialize-source-registry (initialize-source-registry
'(:source-registry (:directory #p"ASDF:test;") :ignore-inherited-configuration)) '(:source-registry (:directory #p"ASDF:test;") :ignore-inherited-configuration))
(load-system :test-logical-pathname :force t)) (load-system :test-logical-pathname :force t :verbose t))
#-(or xcl gcl<2.7) #-(or xcl gcl<2.7)
(progn (progn
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment