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

2.32.38: handle cases where binary-op has no input or output.

Also, better document *output-translation-function*
parent 27b114cd
No related branches found
No related tags found
No related merge requests found
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
If not, optionally issue a warning. Start migrating people toward that. If not, optionally issue a warning. Start migrating people toward that.
* have with-input-file use the encodings mechanism? * 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. * 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) * fix upgrade on clisp, cmucl, abcl (if still broken)
** Extract minimal test case, build a battery of automated tests ** 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 * Bug found by fe[nl]ix: infinite loop if the definitions in an asd file
......
...@@ -74,7 +74,7 @@ ...@@ -74,7 +74,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.32.37" ;; to be automatically updated by make bump-version :version "2.32.38" ;; to be automatically updated by make bump-version
:depends-on () :depends-on ()
#+asdf3 :encoding #+asdf3 :utf-8 #+asdf3 :encoding #+asdf3 :utf-8
;; For most purposes, asdf itself specially counts as a builtin system. ;; For most purposes, asdf itself specially counts as a builtin system.
......
...@@ -362,7 +362,7 @@ ...@@ -362,7 +362,7 @@
(fasl (first inputs)) (fasl (first inputs))
(library (second inputs)) (library (second inputs))
(asd (first (output-files o s))) (asd (first (output-files o s)))
(name (pathname-name asd)) (name (if (and fasl asd) (pathname-name asd) (return-from perform)))
(dependencies (dependencies
(if (operation-monolithic-p o) (if (operation-monolithic-p o)
(remove-if-not 'builtin-system-p (remove-if-not 'builtin-system-p
......
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- ;;; -*- 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: ;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>. ;;; please mail to <asdf-devel@common-lisp.net>.
......
...@@ -662,6 +662,12 @@ then it is merged with the PATHNAME-DIRECTORY-PATHNAME of PATHNAME." ...@@ -662,6 +662,12 @@ then it is merged with the PATHNAME-DIRECTORY-PATHNAME of PATHNAME."
(t (t
(translate-pathname path absolute-source destination)))) (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."))
...@@ -52,7 +52,7 @@ You can compare this string with e.g.: (ASDF:VERSION-SATISFIES (ASDF:ASDF-VERSIO ...@@ -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.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.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 ;; "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))) (existing-version (asdf-version)))
(setf *asdf-version* asdf-version) (setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version))) (when (and existing-version (not (equal asdf-version existing-version)))
......
"2.32.37" "2.32.38"
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