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
