The upgrade test for ACL from 1.85 fails reliably with this error:
Warning: COMPILE-FILE warned while performing #<compile-op > on #<cl-source-file "asdf" "build" "asdf">. Warning: COMPILE-FILE failed while performing #<compile-op > on #<cl-source-file "asdf" "build" "asdf">. TEST ABORTED: #P"/Users/rpg/lisp/asdf/build/fasls/acl-8.2m-macosx-x64/asdf/build/asdf.fasl" does not exist, cannot load Evaluation stack: ; Autoloading for make-broadcast-stream: ; Fast loading /usr/local/acl/acl82.64/code/streamc.003 ;;; Installing streamc patch, version 3. ; Fast loading from bundle code/efft-utf8-base.fasl. ; Fast loading from bundle code/efft-void.fasl. ; Fast loading from bundle code/efft-latin1-base.fasl.
->(sys::..runtime-operation #11="applyn" . #1=(:unknown-args)) (tpl:do-command #2="zoom" . #<non-lisp object @ #x7>) (sys::..runtime-operation #5="lisp_apply" . #1#) [... excl::eval-as-progn ] (let
. #3=(((*terminal-io* stream) (*standard-output* stream) (tpl:*zoom-print-circle* *print-circle*) (tpl:*zoom-print-level* *print-level*) (tpl:*zoom-print-length* *print-length*)) (tpl:do-command #2# :from-read-eval-print-loop nil :count t :all t))) [... excl::eval-as-progn ] (block asdf/image:raw-print-backtrace (let . #3#)) [... excl::%eval ] (asdf/image:raw-print-backtrace
:stream #4=#<excl:terminal-simple-stream [initial terminal io] fd 0/1 @ #x1000251122> :count 69) (sys::..runtime-operation #10="comp_to_interp" :stream #4# :count 69) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (let*
. #7=(((#6=#:g822995 . #19=((cons (load-time-value excl::.ignore-errors-1.) (excl::fast excl::*handler-clusters*)))) (excl::*handler-clusters* #6#)) (declare (dynamic-extent #6# . #21=(excl::*handler-clusters*))) (progn . #8=((apply 'asdf/image:raw-print-backtrace asdf/image::keys))))) [... excl::eval-as-progn ] (catch #22='excl::ignore-errors-1 (let* . #7#)) [... excl::eval-as-progn ] (let
. #9=(((*print-readably* nil) (*print-circle* t) (*print-miser-width* 75) (*print-length* nil) (*print-level* nil) (*print-pretty* t)) (ignore-errors . #8#))) [... excl::eval-as-progn ] (let ((*package* (find-package :cl))) . #16=((let . #9#))) [... excl::%eval ] ((:internal asdf/image:print-backtrace)) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall
#15=#<Interpreted Closure (:internal asdf/image:print-backtrace) @ #x10026adba2> . #32=#<Function funcall>) [... excl::eval-as-progn ] (let
. #12=(((*package* (find-package package)) (*read-default-float-format* 'double-float) (*print-readably* nil) (*read-eval* nil)) (funcall asdf/stream::thunk))) [... excl::eval-as-progn ] (let nil . #13=((let . #12#))) [... excl::eval-as-progn ] (let
. #14=(((*print-case* (excl:if* excl::*forced-readtable-case-raw* #87=then :downcase #89=else :upcase)) (*readtable* excl::std-lisp-readtable)) (locally . #13#))) [... excl::eval-as-progn ] (progv
excl::with-standard-io-syntax-vars excl::with-standard-io-syntax-vals (let . #14#)) [... excl::eval-as-progn ] (block
asdf/stream:call-with-safe-io-syntax (with-standard-io-syntax . #13#)) [... excl::%eval ] (asdf/stream:call-with-safe-io-syntax #15#) (sys::..runtime-operation #10# #15#) [... excl::eval-as-progn ] (block
asdf/image:print-backtrace (asdf/stream:with-safe-io-syntax (:package :cl) . #16#)) [... excl::%eval ] (asdf/image:print-backtrace :stream #4# :count 69) (sys::..runtime-operation #10# :stream #4# :count 69) (sys::..runtime-operation #5# . #1#) [... excl::%eval ] (excl::eval-as-progn
#17=((asdf/image:print-backtrace :stream stream :count count) (when condition (asdf/stream:safe-format! stream "~&Above backtrace due to this condition:~%~A~&" condition)))) (block asdf/image:print-condition-backtrace . #17#) [... excl::%eval ] (asdf/image:print-condition-backtrace
#18=#<excl:file-does-not-exist-error @ #x100269bc42> :count 69 :stream #4#) (sys::..runtime-operation #10# #18# :count 69 :stream #4#) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (block
asdf-test:acall (apply (apply 'asdf-test:asym (if (consp asdf-test::name) asdf-test::name (list asdf-test::name))) asdf-test::args)) [... excl::%eval ] (asdf-test:acall
:print-condition-backtrace #18# :count 69 :stream #4#) (sys::..runtime-operation
#10# :print-condition-backtrace #18# :count 69 :stream #4#) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (let*
. #23=(((#20=#:g822994 . #19#) (excl::*handler-clusters* #20#)) (declare (dynamic-extent #20# . #21#)) (progn . #24=((asdf-test:acall :print-condition-backtrace asdf-test::c :count 69 :stream *error-output*))))) [... excl::eval-as-progn ] (catch #22# (let* . #23#)) [... excl::%eval ] (excl::eval-as-progn
#94=((ignore-errors . #24#) (asdf-test:leave-test "Script failed" 1))) [... excl::%eval ] ((:internal asdf-test::call-with-test) #18#) (sys::..runtime-operation #10# #18#) (signal #18#) (error
excl:file-does-not-exist-error :pathname
#25=#P"/Users/rpg/lisp/asdf/build/fasls/acl-8.2m-macosx-x64/asdf/build/asdf.fasl" :format-control "~s does not exist, cannot load" :format-arguments (#25#)) (excl::load-2
#25# t #26=(#P"" #P(:type "fasl") #P(:type "cl") #P(:type "lisp")) :error nil nil nil nil nil nil nil :default nil nil) (excl::load-1
#25# t #26# :error nil nil nil nil nil nil nil :default nil nil) (load #25#) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (let
((#27=#:g822982 asdf/lisp-build::x)) (typecase #27# #30=(#28=(or pathname string) (apply 'load asdf/lisp-build::x asdf/lisp-build::keys)) #31=(stream (let ((*package* *package*) (*readtable* *readtable*) (*load-pathname* nil) (*load-truename* nil)) (asdf/stream:eval-input asdf/lisp-build::x))) (otherwise (excl::.case-failure 'etypecase #27# '(or . #29=(#28# stream)) '#29#)))) [... excl::eval-as-progn ] (block
asdf/lisp-build:load* (etypecase asdf/lisp-build::x #30# #31#)) [... excl::%eval ] (asdf/lisp-build:load* #25#) (sys::..runtime-operation #10# #25#) [... excl::%eval ] ((:internal asdf/lisp-action:perform-lisp-load-fasl)) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall
#38=#<Interpreted Closure (:internal asdf/lisp-action:perform-lisp-load-fasl) @ #x1002697c42> . #32#) [... excl::eval-as-progn ] (let*
((#33=#:g822981 (cons 't #36=#'(lambda (asdf/utility::c) (when (asdf/utility:match-any-condition-p asdf/utility::c asdf/utility::conditions) (muffle-warning asdf/utility::c))))) (#34=#:g822979 (list #33#)) (#35=#:g822980 (cons #34# . #80=((excl::fast excl::*handler-clusters*)))) (excl::*handler-clusters* #35#)) (declare (dynamic-extent #34# #35# #33# . #82=(excl::*handler-clusters*))) . #37=((funcall asdf/utility::thunk))) [... excl::eval-as-progn ] (block
asdf/utility:call-with-muffled-conditions (handler-bind ((t #36#)) . #37#)) [... excl::%eval ] (asdf/utility:call-with-muffled-conditions
#38# #39=("No generic function ~S present when encountering macroexpansion of defmethod. Assuming it will be an instance of standard-generic-function." "Overwriting already existing readtable ~S." #(#:finalizers-off-warning :asdf-finalizers))) (sys::..runtime-operation #10# #38# #39#) [... excl::eval-as-progn ] (block
asdf/lisp-build:call-with-muffled-loader-conditions (asdf/utility:call-with-muffled-conditions asdf/lisp-build::thunk (append asdf/lisp-build:*uninteresting-compiler-conditions* asdf/lisp-build:*uninteresting-loader-conditions*))) [... excl::%eval ] (asdf/lisp-build:call-with-muffled-loader-conditions #38#) (sys::..runtime-operation #10# #38#) [... excl::eval-as-progn ] (let
(#40=(asdf/lisp-action::fasl (first (asdf-action:input-files asdf/lisp-action::o asdf/lisp-action::c)))) (if (and asdf/lisp-action::fasl) #41=(asdf/lisp-build:with-muffled-loader-conditions nil (asdf/lisp-build:load* asdf/lisp-action::fasl)) nil)) [... excl::eval-as-progn ] (block
asdf/lisp-action:perform-lisp-load-fasl (asdf/utility:if-let #40# #41#)) [... excl::%eval ] (asdf/lisp-action:perform-lisp-load-fasl
#42=#<asdf/lisp-action:load-op > #43=#<asdf/lisp-action:cl-source-file "asdf" "build" "asdf">) (sys::..runtime-operation #10# #42# #43#) [... excl::eval-as-progn ] (block
asdf-action:perform (asdf/lisp-action:perform-lisp-load-fasl asdf/lisp-action::o asdf/lisp-action::c)) [... excl::%eval ] ((method asdf-action:perform (asdf/lisp-action:load-op asdf/lisp-action:cl-source-file))
#42# #43#) (sys::..runtime-operation #10# #42# #43#) ((:internal (:effective-method 2 nil nil nil nil) 0) #42# #43#) (sys::..runtime-operation #5# . #1#) (excl::caching-miss
#<standard-generic-function asdf-action:perform> (#42# #43#) #(0 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)) [... excl::%eval ] (progn
. #44=((asdf-action:perform asdf::op asdf/component:component) (return))) [... excl::%eval ] (return-from . #53=(#61=#:Tag415 #65=(progn . #44#))) [... excl::eval-as-progn ] (let*
((#49=#:g822528 (excl::make-restart :name 'asdf/find-component:retry :function #54=#'(lambda #45=(&rest excl::temp) (setq #46=#:g822520 . #47=(excl::temp)) (go #60=#:g822524)) :class #48=(and excl::.restart-condition. (list excl::.restart-condition.)) . #55=(:report-function #'#66=(lambda (asdf::s) (format asdf::s "~@<Retry performing ~S on ~S.~@:>" asdf::op asdf/component:component))))) (#50=#:g822529 (excl::make-restart :name 'asdf-action:accept :function #56=#'(lambda #45# (setq #46# . #47#) (go #62=#:g822525)) :class #48# . #57=(:report-function #'#67=(lambda (asdf::s) (format asdf::s "~@<Continue, treating ~S on ~S as ~ having been successful.~@:>" asdf::op asdf/component:component))))) (#51=#:g822526 (list #49# #50#)) (#52=#:g822527 (cons (and t #51#) (excl::fast excl::*restart-clusters*))) (excl::*restart-clusters* #52#)) (declare (dynamic-extent #51# #52# #49# #50# excl::*restart-clusters*)) . #58=((return-from . #53#))) [... excl::eval-as-progn ] (let*
. #59=(nil (excl::restart-bind-if t ((asdf/find-component:retry #54# . #55#) (asdf-action:accept #56# . #57#)) . #58#))) [... excl::%eval ] (excl::evaluate-a-tagbody
#63=((let* . #59#) #60# (return-from #61# (apply #'(lambda nil) #46#)) #62# (return-from #61# (apply #'(lambda nil . #68=((setf (gethash (type-of asdf::op) (asdf/component:component-operation-times asdf/component:component)) (get-universal-time)) (return))) #46#)))) [... excl::eval-as-progn ] (let . #64=(((#46# nil)) (tagbody. #63#))) [... excl::eval-as-progn ] (block #61# (let . #64#)) [... excl::%eval ] (excl::evaluate-a-tagbody
#70=(#69=#:g822519 (progn . #72=((restart-case #65# (asdf/find-component:retry nil :report #66#) (asdf-action:accept nil :report #67# . #68#)))) (go #69#))) [... excl::eval-as-progn ] (block nil (tagbody. #70#)) [... excl::%eval ] (excl::evaluate-a-tagbody
#73=(excl::next-loop (when (endp #71=#:loop-list-427) (go excl::end-loop)) (excl::loop-really-desetq #75=(asdf::op . asdf/component:component) (car #71#)) (excl::loop-really-desetq #71# (cdr #71#)) #76=(loop . #72#) (go excl::next-loop) excl::end-loop)) [... excl::eval-as-progn ] (let
. #74=(((asdf::op nil) (asdf/component:component nil) (#71# asdf::steps)) (declare (type list #71#)) (tagbody. #73#))) [... excl::eval-as-progn ] (block nil (let . #74#)) [... excl::eval-as-progn ] (block
excl::continuation . #90=((loop asdf::for #75# asdf::in asdf::steps do #76#))) [... excl::%eval ] ((flet asdf/operate:operate excl::continuation)) (sys::..runtime-operation #10#) [... excl::%eval ] (multiple-value-prog1
. #83=((excl::continuation) (excl::with-compilation-unit-cleanups))) [... excl::eval-as-progn ] (let*
((#77=#:g425 (cons 'excl::compiler-note #84=#'excl::tally-compilation-warnings)) (#78=#:g426 (cons 'warning #85=#'excl::tally-compilation-warnings)) (#79=#:g423 (list #77# #78#)) (#81=#:g424 (cons #79# . #80#)) (excl::*handler-clusters* #81#)) (declare (dynamic-extent #79# #81# #77# #78# . #82#)) . #86=((multiple-value-prog1 . #83#))) [... excl::eval-as-progn ] (progv
. #88=((mapcar #'car excl::.with-compilation-unit-bindings.) (excl::with-compilation-unit-values) (handler-bind ((excl::compiler-note #84#) (warning #85#)) . #86#))) [... excl::eval-as-progn ] (let
nil . #91=((excl:if* (or nil (null excl::.with-compilation-unit.)) #87# (progv . #88#) #89# (excl::continuation)))) [... excl::%eval ] (flet ((excl::continuation nil . #90#)) . #91#) [... excl::eval-as-progn ] (let*
. #92=(((asdf::op (apply #'make-instance asdf::operation-class :original-initargs asdf::args asdf::args)) (asdf/upgrade:*verbose-out* (if (getf asdf::args :verbose t) *trace-output* (make-broadcast-stream))) (asdf/system:system (if (typep asdf/system:system 'asdf/component:component) asdf/system:system (asdf/system:find-system asdf/system:system))) (asdf::steps (asdf/plan:traverse asdf::op asdf/system:system))) (with-compilation-unit nil . #90#))) [... excl::eval-as-progn ] (block asdf/operate:operate (let* . #92#)) [... excl::%eval ] (asdf/operate:operate asdf/lisp-action:load-op :asdf) (sys::..runtime-operation #10# asdf/lisp-action:load-op :asdf) (sys::..runtime-operation #5# . #1#) [... excl::eval-as-progn ] (block asdf/operate:oos (apply #'asdf/operate:operate asdf::args)) [... excl::%eval ] (asdf/operate:oos asdf/lisp-action:load-op :asdf) (sys::..runtime-operation #10# asdf/lisp-action:load-op :asdf) (sys::..runtime-operation #5# . #1#) (sys::..runtime-operation #5# . #1#) [... excl::%eval ] ((:internal asdf-test:load-asdf-system)) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall
#93=#<Interpreted Closure (:internal asdf-test:load-asdf-system) @ #x10006ac4e2> . #32#) [... excl::eval-as-progn ] (block
asdf-test::call-quietly (handler-bind () (funcall asdf-test::thunk))) [... excl::%eval ] (asdf-test::call-quietly #93#) (sys::..runtime-operation #10# #93#) [... excl::eval-as-progn ] (block
asdf-test:load-asdf-system (asdf-test:quietly (asdf-test:register-directory asdf-test:*asdf-directory*) (apply (asdf-test:asym :oos) (asdf-test:asym :load-op) :asdf asdf-test::keys))) [... excl::%eval ] (asdf-test:load-asdf-system) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall asdf-test:load-asdf-system . #32#) [... excl::%eval ] ((:internal asdf-test::test-upgrade)) (sys::..runtime-operation #10#) (sys::..runtime-operation #11# . #1#) (funcall
#102=#<Interpreted Closure (:internal asdf-test::test-upgrade) @ #x100068c422> . #<Interpreted Function asym>) (sys::..runtime-operation #11# . #1#) (funcall funcall . #32#) [... excl::%eval ] (excl::eval-as-progn
#98=((funcall (or (asdf-test:asym :call-with-asdf-cache) 'funcall) asdf-test::thunk) (asdf-test:leave-test "Script succeeded" 0))) (let*
((#95=#:g138 (cons 'error #99=(lambda (asdf-test::c) (ignore-errors (format *error-output* "~&TEST ABORTED: ~A~&" asdf-test::c)) (asdf-test::finish-outputs*) (cond (asdf-test::*debug-asdf* (format t "~&It's your baby, fix it!~%") (break)) (t . #94#))))) (#96=#:g136 (list #95#)) (#97=#:g137 (cons #96# . #80#)) (excl::*handler-clusters* #97#)) (declare (dynamic-extent #96# #97# #95# . #82#)) . #98#) [... excl::eval-as-progn ] (catch . #100=(:asdf-test-done (handler-bind ((error #99#)) . #98#))) [... excl::%eval ] (let
. #101=(((asdf-test::result (catch . #100#))) (when asdf-test::*quit-when-done* (asdf-test::exit-lisp asdf-test::result)))) [... excl::eval-as-progn ] (block
asdf-test::call-with-test (asdf-test::redirect-outputs) (let . #101#)) [... excl::%eval ] (asdf-test::call-with-test #102#) (sys::..runtime-operation #10# #102#) [... excl::eval-as-progn ] (block
asdf-test::test-upgrade (asdf-test:with-test nil (asdf-test::verbose t nil) (when asdf-test::old-method (cond ((string-equal asdf-test::tag "REQUIRE") (format t "Requiring some previous ASDF ~A~%" asdf-test::tag) (ignore-errors (funcall 'require "asdf")) (if (member "ASDF" *modules* :test 'equalp) (format t "Your Lisp implementation provided ASDF ~A~%" (asdf-test::get-asdf-version)) (asdf-test:leave-test "Your Lisp implementation does not provide ASDF. Skipping test.~%" 0))) (t (format t "Loading old asdf ~A via ~A~%" asdf-test::tag asdf-test::old-method) (funcall asdf-test::old-method asdf-test::tag)))) (when (find-package :asdf) (asdf-test::configure-asdf)) (format t "Now loading new asdf via method ~A~%" asdf-test::new-method) (funcall asdf-test::new-method) (format t "Testing it~%") (asdf-test:register-directory asdf-test:*test-directory*) (asdf-test:load-test-system :test-asdf/all) (assert (asdf-test:asymval '#:*file1* :test-package)) (assert (asdf-test:asymval '#:*file3* :test-package)))) [... excl::%eval ] (asdf-test::test-upgrade
asdf-test:load-asdf-lisp asdf-test:load-asdf-system #103="1.85") (sys::..runtime-operation
#10# asdf-test:load-asdf-lisp asdf-test:load-asdf-system #103#) [... excl::%eval ] (eval
(asdf-test::test-upgrade 'asdf-test:load-asdf-lisp 'asdf-test:load-asdf-system #103#)) (excl::sharp-dot
#104=#<excl:string-input-simple-stream "'(#.(load"te..." pos 117 @ #x1000643ca2> #. nil) (excl::read-dispatch-char #104# ##) [... sys::funcall-check ] (excl::read-maybe-nothing #104# ##) (excl::read-list #104# #() [... sys::funcall-check ] (excl::read2 #104# t nil t nil nil) (excl::read1 #104# t nil t nil nil) (read #104# t nil t) (excl::read-quote #104# #') [... sys::funcall-check ] (excl::read2 #104# t nil nil nil nil) (excl::read1 #104# t nil nil nil nil) (read #104# t nil) (read-from-string
"'(#.(load"test/script-support.lisp")#.(in-package :asdf-test)#.(test-upgrade 'load-asdf-lisp'load-asdf-system "1.85"))") (excl::do-command-line-processing) (excl::start-lisp-execution t) Above backtrace due to this condition: #P"/Users/rpg/lisp/asdf/build/fasls/acl-8.2m-macosx-x64/asdf/build/asdf.fasl" does not exist, cannot load Script failed upgrade FAILED for allegromodern from 1.85 using method 'load-asdf-lisp'load-asdf-system
Interestingly, when I paste the replication string into bash:
ASDF_UPGRADE_TEST_TAGS="1.85" ASDF_UPGRADE_TEST_METHODS="'load-asdf-lisp'load-asdf-system" ./test/run-tests.sh -u allegromodern
this works fine.
So this only fails for me when running in the context of make....
r