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

2.26.122: Fix logical pathname issue on clisp

parent 0a621ca2
No related branches found
No related tags found
No related merge requests found
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
:licence "MIT" :licence "MIT"
:description "Another System Definition Facility" :description "Another System Definition Facility"
:long-description "ASDF builds Common Lisp software organized into defined systems." :long-description "ASDF builds Common Lisp software organized into defined systems."
:version "2.26.121" ;; to be automatically updated by bin/bump-revision :version "2.26.122" ;; to be automatically updated by bin/bump-revision
:depends-on () :depends-on ()
:components ((:module "build" :components ((:file "asdf")))) :components ((:module "build" :components ((:file "asdf"))))
:in-order-to (#+asdf2.27 (compile-op (monolithic-load-concatenated-source-op asdf/defsystem)))) :in-order-to (#+asdf2.27 (compile-op (monolithic-load-concatenated-source-op asdf/defsystem))))
......
...@@ -311,7 +311,11 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded. ...@@ -311,7 +311,11 @@ PREVIOUS-TIME when not null is the time at which the PREVIOUS system was loaded.
(setf (system-source-file system) pathname)) (setf (system-source-file system) pathname))
(when (and pathname (when (and pathname
(not (and previous (not (and previous
(pathname-equal pathname previous-pathname) (or (pathname-equal pathname previous-pathname)
(and pathname previous-pathname
(pathname-equal
(translate-logical-pathname pathname)
(translate-logical-pathname previous-pathname))))
(stamp<= (safe-file-write-date pathname) previous-time)))) (stamp<= (safe-file-write-date pathname) previous-time))))
;; only load when it's a pathname that is different or has newer content ;; only load when it's a pathname that is different or has newer content
(load-sysdef name pathname))) (load-sysdef name pathname)))
......
;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- ;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
;;; This is ASDF 2.26.121: Another System Definition Facility. ;;; This is ASDF 2.26.122: Another System Definition Facility.
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: ;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>. ;;; please mail to <asdf-devel@common-lisp.net>.
......
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
:ignore-inherited-configuration)) :ignore-inherited-configuration))
(load-system :test-logical-pathname :force t) (load-system :test-logical-pathname :force t)
(let ((sys (find-system :test-logical-pathname))) (let ((sys (find-system :test-logical-pathname)))
(assert (logical-pathname-p (component-pathname sys))) #-clisp (assert (logical-pathname-p (component-pathname sys)))
(assert (logical-pathname-p (system-source-file sys))))) #-clisp (assert (logical-pathname-p (system-source-file sys)))))
(DBG "Done")) (DBG "Done"))
...@@ -45,7 +45,7 @@ ...@@ -45,7 +45,7 @@
;; "2.345.6" would be a development version in the official upstream ;; "2.345.6" would be a development version in the official upstream
;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.0.7" would be your seventh local modification of official release 2.345
;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
(asdf-version "2.26.121") (asdf-version "2.26.122")
(existing-asdf (find-class (find-symbol* :component :asdf nil) nil)) (existing-asdf (find-class (find-symbol* :component :asdf nil) nil))
(existing-version *asdf-version*) (existing-version *asdf-version*)
(already-there (equal asdf-version existing-version))) (already-there (equal asdf-version existing-version)))
......
"2.26.121" "2.26.122"
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment