[asdf-devel] Still having problems on upgrade tests

3 Mar 2013

      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

[asdf-devel] Still having problems on upgrade tests

Robert Goldman