diff --git a/TODO b/TODO index 1c4c6a4ed7bd6a8518f678c0e732ff29af176a18..2f7e1ae75e11c80c85f7a7fec9227eba68c4003d 100644 --- a/TODO +++ b/TODO @@ -8,7 +8,7 @@ If not, optionally issue a warning. Start migrating people toward that. * have with-input-file use the encodings mechanism? * have a single test .asd that tests as many features as possible, use it for upgrade test. -* implement deferred warnings support on abcl, allegro, clisp, cmucl, lispworks, scl +* implement deferred warnings support on lispworks * fix upgrade on clisp, cmucl, abcl (if still broken) ** Extract minimal test case, build a battery of automated tests * Bug found by fe[nl]ix: infinite loop if the definitions in an asd file diff --git a/asdf.asd b/asdf.asd index 4ba5ec77f26eb425455ccf3afee5873274fdd383..025acb6e3197742ecac25d79716801c448ef47cd 100644 --- a/asdf.asd +++ b/asdf.asd @@ -74,7 +74,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.32.37" ;; to be automatically updated by make bump-version + :version "2.32.38" ;; to be automatically updated by make bump-version :depends-on () #+asdf3 :encoding #+asdf3 :utf-8 ;; For most purposes, asdf itself specially counts as a builtin system. diff --git a/bundle.lisp b/bundle.lisp index 24fbf907f06498bae117dc491c7754c8b4394e6d..1dfada1dae91062ec98f3a482d54ab0d221d1ef4 100644 --- a/bundle.lisp +++ b/bundle.lisp @@ -362,7 +362,7 @@ (fasl (first inputs)) (library (second inputs)) (asd (first (output-files o s))) - (name (pathname-name asd)) + (name (if (and fasl asd) (pathname-name asd) (return-from perform))) (dependencies (if (operation-monolithic-p o) (remove-if-not 'builtin-system-p diff --git a/header.lisp b/header.lisp index c70563d9dc7870c0975c886ca05a1767325bbf53..384425f9abe21ccb27d7a4d95261cbd5bc9938f6 100644 --- a/header.lisp +++ b/header.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- -;;; This is ASDF 2.32.37: Another System Definition Facility. +;;; This is ASDF 2.32.38: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. diff --git a/uiop/pathname.lisp b/uiop/pathname.lisp index 92715c0fbdde890a003b42f1c0735af4dc8edaba..a71af46f3b194cdbbd906f20f250a2f3b797cad7 100644 --- a/uiop/pathname.lisp +++ b/uiop/pathname.lisp @@ -662,6 +662,12 @@ then it is merged with the PATHNAME-DIRECTORY-PATHNAME of PATHNAME." (t (translate-pathname path absolute-source destination)))) - (defvar *output-translation-function* 'identity)) ; Hook for output translations - + (defvar *output-translation-function* 'identity + "Hook for output translations. + +This function needs to be idempotent, so that actions can work +whether their inputs were translated or not, +which they will be if we are composing operations. e.g. if some +create-lisp-op creates a lisp file from some higher-level input, +you need to still be able to use compile-op on that lisp file.")) diff --git a/upgrade.lisp b/upgrade.lisp index 15082a6f17fe6fad03fb82a47e0c9401fc3f679f..7dc372479f9e4fa7f3c93bb038927d4a960727e9 100644 --- a/upgrade.lisp +++ b/upgrade.lisp @@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO ;; "3.4.5.67" would be a development version in the official upstream of 3.4.5. ;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5 ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67 - (asdf-version "2.32.37") + (asdf-version "2.32.38") (existing-version (asdf-version))) (setf *asdf-version* asdf-version) (when (and existing-version (not (equal asdf-version existing-version))) diff --git a/version.lisp-expr b/version.lisp-expr index af7ee546c3358c87ff964fbe3fcfa2497fc488eb..db0f6f367555630991356eb522d80d4edf5a451f 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -1 +1 @@ -"2.32.37" +"2.32.38"