diff --git a/Makefile b/Makefile index c96d6553722d37a03874ca2a03dda0f41971ed27..ff35d0c671a4fcfd9a93aa865013dd2d0cd0f0cc 100644 --- a/Makefile +++ b/Makefile @@ -194,6 +194,7 @@ test-clean-load: build/asdf.lisp # test-glob has been replaced by t, and lisp by l, easier to type test-lisp: build/asdf.lisp @cd test; ./run-tests.sh ${l} ${t} + t: test-lisp test: doc test-lisp test-clean-load test-load-systems diff --git a/action.lisp b/action.lisp index 99413e8414b9bb059da325127ee38072a7d2cf3a..702fcb858544833621e86643ceaf43dfac7ed7b6 100644 --- a/action.lisp +++ b/action.lisp @@ -88,15 +88,18 @@ and a class-name or class designates the canonical instance of the designated cl `(,function ,@prefix ,o ,c ,@suffix)))) `(progn (defmethod ,function (,@prefix (,operation string) ,component ,@suffix ,@more-args) + (declare (notinline ,function)) (let ((,component (find-component () ,component))) ;; do it first, for defsystem-depends-on ,(next-method `(safe-read-from-string ,operation :package :asdf/interface) component))) (defmethod ,function (,@prefix (,operation symbol) ,component ,@suffix ,@more-args) + (declare (notinline ,function)) (if ,operation ,(next-method `(make-operation ,operation) `(or (find-component () ,component) ,if-no-component)) ,if-no-operation)) (defmethod ,function (,@prefix (,operation operation) ,component ,@suffix ,@more-args) + (declare (notinline ,function)) (if (typep ,component 'component) (error "No defined method for ~S on ~/asdf-action:format-action/" ',function (make-action ,operation ,component))