diff --git a/asdf.asd b/asdf.asd index 642a03423e8eca2dafee49b504d9eac88cdd3e9c..0e6ec6adda611ad778dceff07cd505ff3a8c2d83 100644 --- a/asdf.asd +++ b/asdf.asd @@ -40,7 +40,7 @@ (:file "operate" :depends-on ("plan")) (:file "output-translations" :depends-on ("operate")) (:file "source-registry" :depends-on ("find-system")) - (:file "backward-internals" :depends-on ("action" "operate")) + (:file "backward-internals" :depends-on ("lisp-action" "operate")) (:file "defsystem" :depends-on ("backward-internals")) (:file "bundle" :depends-on ("lisp-action")) (:file "concatenate-source" :depends-on ("bundle")) @@ -57,7 +57,7 @@ :licence "MIT" :description "Another System Definition Facility" :long-description "ASDF builds Common Lisp software organized into defined systems." - :version "2.26.143" ;; to be automatically updated by make bump-version + :version "2.26.144" ;; to be automatically updated by make bump-version :depends-on () :components ((:module "build" diff --git a/backward-internals.lisp b/backward-internals.lisp index 8dad8ee8ef294d0a204e93f16bf2a21a402821ae..5846de8cbf96c5a9fe4e66a06b8703173621e9c6 100644 --- a/backward-internals.lisp +++ b/backward-internals.lisp @@ -4,7 +4,8 @@ (asdf/package:define-package :asdf/backward-internals (:recycle :asdf/backward-internals :asdf) (:use :asdf/common-lisp :asdf/driver :asdf/upgrade - :asdf/system :asdf/component :asdf/find-system :asdf/action) + :asdf/system :asdf/component :asdf/operation + :asdf/find-system :asdf/action :asdf/lisp-action) (:export ;; for internal use #:%refresh-component-inline-methods #:%resolve-if-component-dep-fails @@ -60,7 +61,7 @@ (check-type component parent-component) (check-type if-component-dep-fails (member :fail :ignore :try-next)) (unless (eq if-component-dep-fails :fail) - (loop :with o = (make-instance 'compile-op) + (loop :with o = (make-operation 'compile-op) :for c :in (component-children component) :do (loop* :for (feature? feature) :in (component-depends-on o c) :when (eq feature? 'feature) :do diff --git a/header.lisp b/header.lisp index 610b41554b23036be3fe268bbd14c81032745a39..e07a054d28a9486e5f9d7bf4cb940abf982bf7d0 100644 --- a/header.lisp +++ b/header.lisp @@ -1,5 +1,5 @@ ;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- -;;; This is ASDF 2.26.143: Another System Definition Facility. +;;; This is ASDF 2.26.144: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel@common-lisp.net>. diff --git a/test/test-inline-methods.script b/test/test-inline-methods.script new file mode 100644 index 0000000000000000000000000000000000000000..961787329339c71b641f1ab4c864772c10bc1949 --- /dev/null +++ b/test/test-inline-methods.script @@ -0,0 +1,11 @@ +(defparameter *a* nil) + +(def-test-system :foo + :components + ((:file "file1" :perform (load-op :before (o c) + (setf *a* t) + (format t "Method run before ~A~%" (operation-description o c)))))) + +(load-system :foo) + +(assert *a*) diff --git a/upgrade.lisp b/upgrade.lisp index 928c30d66132e19003172b02ef60aa2664fa7be7..2511df285a6ab959e718ad23bae7f66cc20e891e 100644 --- a/upgrade.lisp +++ b/upgrade.lisp @@ -35,7 +35,7 @@ ;; "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.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.26.143") + (asdf-version "2.26.144") (existing-asdf (find-class (find-symbol* :component :asdf nil) nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version)) diff --git a/version.lisp-expr b/version.lisp-expr index 8518bc64e9d42359bca2ad841dba56b0b175fe9d..fb113c1ec7ae6849a915652d632719c938a6b0ae 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -1 +1 @@ -"2.26.143" +"2.26.144"