From f081332cbf5055a178feea4b70b76434715cd3bc Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Wed, 3 Apr 2013 20:56:18 -0400 Subject: [PATCH] 2.32.38: handle cases where binary-op has no input or output. Also, better document *output-translation-function* --- TODO | 2 +- asdf.asd | 2 +- bundle.lisp | 2 +- header.lisp | 2 +- uiop/pathname.lisp | 10 ++++++++-- upgrade.lisp | 2 +- version.lisp-expr | 2 +- 7 files changed, 14 insertions(+), 8 deletions(-) diff --git a/TODO b/TODO index 1c4c6a4e..2f7e1ae7 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 4ba5ec77..025acb6e 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 24fbf907..1dfada1d 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 c70563d9..384425f9 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 92715c0f..a71af46f 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 15082a6f..7dc37247 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 af7ee546..db0f6f36 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -1 +1 @@ -"2.32.37" +"2.32.38" -- GitLab