[Asdf-devel] mkcl and asdf upgrade

[Robert Goldman]

I have replicated this bug by doing the following:

1. update my copy of mkcl from git
2. build and install new mkcl
3. update my copy of ASDF, checking out master
4. do make in the ASDF root directory
5. do make test-upgrade l=mkcl in the ASDF root directory

>From this I get the following error:

TEST ABORTED: The index 35 (max: 31) is not a valid slot index in the
object #<ASDF/SYSTEM:SYSTEM "asdf">.
0: (#<bytecompiled-function 00000000063ea980> (((NIL) (#:G-30736-4735 .
0)) (#:G-30736-4734) ((NIL) . #:G-30736-4733) (CONDITION . #<a
MKCL:INVALID-SLOT 135798880>) (COUNT . 69) (STREAM . #<output stream
"stdout">) (UIOP/IMAGE::KEYS :STREAM #<output stream "stdout"> :COUNT 69
:CONDITION #<a MKCL:INVALID-SLOT 135798880>) (#:|%the-lock--30736-4725|
. #<lock (recursive) MT:+LOAD-COMPILE-LOCK+ 000000000282f280>)
(#:|%lock-acquired--30736-4726| . T)))
1: (#<bytecompiled-function UIOP/UTILITY:CALL-FUNCTION>
((UIOP/UTILITY::ARGUMENTS) (UIOP/UTILITY::FUNCTION-SPEC .
#<bytecompiled-closure 000000000a938ea0>) (#:|%the-lock--30736-2091| .
#<lock (recursive) MT:+LOAD-COMPILE-LOCK+ 000000000282f280>)
(#:|%lock-acquired--30736-2092| . T)))
2: (#<bytecompiled-function UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX>
((PACKAGE . :CL) (FUNCTION . #<bytecompiled-closure 000000000a938ea0>)
(#:|%the-lock--30736-3878| . #<lock (recursive) MT:+LOAD-COMPILE-LOCK+
000000000282f280>) (#:|%lock-acquired--30736-3879| . T)))
3: (#<bytecompiled-function UIOP/IMAGE:PRINT-BACKTRACE> ((CONDITION .
#<a MKCL:INVALID-SLOT 135798880>) (COUNT . 69) (STREAM . #<output stream
"stdout">) (UIOP/IMAGE::KEYS :STREAM #<output stream "stdout"> :COUNT 69
:CONDITION #<a MKCL:INVALID-SLOT 135798880>) (#:|%the-lock--30736-4725|
. #<lock (recursive) MT:+LOAD-COMPILE-LOCK+ 000000000282f280>)
(#:|%lock-acquired--30736-4726| . T)))
4: (#<bytecompiled-function UIOP/IMAGE:PRINT-CONDITION-BACKTRACE>
((COUNT . 69) (STREAM . #<output stream "stdout">) (CONDITION . #<a
MKCL:INVALID-SLOT 135798880>) (#:|%the-lock--30736-4739| . #<lock
(recursive) MT:+LOAD-COMPILE-LOCK+ 000000000282f280>)
(#:|%lock-acquired--30736-4740| . T)))
5: (#<bytecompiled-function ASDF-TEST:ACALL> ((ASDF-TEST::ARGS #<a
MKCL:INVALID-SLOT 135798880> :COUNT 69 :STREAM #<output stream
"stdout">) (ASDF-TEST::NAME . :PRINT-CONDITION-BACKTRACE)
(#:|%the-lock--30736-510| . #<lock (recursive) MT:+LOAD-COMPILE-LOCK+
000000000282f280>) (#:|%lock-acquired--30736-511| . T)))
6: (#<bytecompiled-function 0000000004d86e80> (((NIL) (#:G-30736-948 .
0)) (#:G-30736-947) ((NIL) . #:G-30736-946) (ASDF-TEST::C . #<a
MKCL:INVALID-SLOT 135798880>) (:ASDF-TEST-DONE . :ASDF-TEST-DONE)
(ASDF-TEST::THUNK . #<bytecompiled-closure 0000000004fb2960>)
(#:|%the-lock--30736-932| . #<lock (recursive) MT:+LOAD-COMPILE-LOCK+
000000000282f280>) (#:|%lock-acquired--30736-933| . T)))
7: (#<bytecompiled-function
ASDF/SYSTEM::CALL-WITH-UPDATED-SYSTEM-VARIABLES> ((ASDF/SYSTEM:SYSTEM .
#<ASDF/SYSTEM:SYSTEM "asdf">) (ASDF/SYSTEM::THUNK .
#<bytecompiled-closure 0000000008182180>) (ASDF/COMPONENT:COMPONENT .
#<ASDF/SYSTEM:SYSTEM "asdf">) (#:|%the-lock--30736-7534| . #<lock
(recursive) MT:+LOAD-COMPILE-LOCK+ 000000000282f280>)
(#:|%lock-acquired--30736-7535| . T)))
8: (#<bytecompiled-function 000000000625fe00> ((ASDF/ACTION::THUNK .
#<bytecompiled-closure 00000000081821e0>) (ASDF/ACTION::C .
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "asdf" "build" "asdf">)
(ASDF/ACTION::O . #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL>)
(CLOS::.THIS-GENERIC-FUNC. . #<STANDARD-GENERIC-FUNCTION
ASDF/ACTION:CALL-WITH-ACTION-CONTEXT 108475808>) (CLOS::.THIS-METHOD. .
#<STANDARD-METHOD CALL-WITH-ACTION-CONTEXT (#<The STANDARD-CLASS
ASDF/OPERATION:OPERATION 83822752> #<The STANDARD-CLASS
ASDF/COMPONENT:COMPONENT 80465472> #<The BUILT-IN-CLASS T 61887520>)
103107680>) (#:|%the-lock--30736-10209| . #<lock (recursive)
MT:+LOAD-COMPILE-LOCK+ 000000000282f280>)
(#:|%lock-acquired--30736-10210| . T)))
9: (#<bytecompiled-function 000000000625f000> ((ASDF/COMPONENT:COMPONENT
. #<ASDF/LISP-ACTION:CL-SOURCE-FILE "asdf" "build" "asdf">)
(ASDF/OPERATION:OPERATION . #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL>)
(CLOS::.THIS-GENERIC-FUNC. . #<STANDARD-GENERIC-FUNCTION
ASDF/ACTION:PERFORM-WITH-RESTARTS 117185536>) (CLOS::.THIS-METHOD. .
#<STANDARD-METHOD PERFORM-WITH-RESTARTS (#<The BUILT-IN-CLASS T
61887520> #<The BUILT-IN-CLASS T 61887520>) 104710528>)
(#:|%the-lock--30736-10233| . #<lock (recursive) MT:+LOAD-COMPILE-LOCK+
000000000282f280>) (#:|%lock-acquired--30736-10234| . T)))
10: (#<bytecompiled-function 000000000600f000> (((NIL) (#:G-30736-10810
. 0)) (#:G-30736-10809) ((NIL) . #:G-30736-10808) ((NIL)
(#:G-30736-10807 . 0)) ((NIL)) (ASDF/LISP-ACTION::C .
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "asdf" "build" "asdf">)
(ASDF/LISP-ACTION::O . #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL>)
(CLOS::.THIS-GENERIC-FUNC. . #<STANDARD-GENERIC-FUNCTION
ASDF/ACTION:PERFORM-WITH-RESTARTS 117185536>) (CLOS::.THIS-METHOD. .
#<STANDARD-METHOD PERFORM-WITH-RESTARTS (#<The STANDARD-CLASS
ASDF/LISP-ACTION:LOAD-OP 79667680> #<The STANDARD-CLASS
ASDF/LISP-ACTION:CL-SOURCE-FILE 78177024>) 101393344>)
(#:|%the-lock--30736-10793| . #<lock (recursive) MT:+LOAD-COMPILE-LOCK+
000000000282f280>) (#:|%lock-acquired--30736-10794| . T)))
11: (#<bytecompiled-function 0000000005d1e000> (((NIL) (#:G-30736-10291
. 1) (#:G-30736-10290 . 0)) (#:G-30736-10289) ((NIL) . #:G-30736-10288)
((NIL) (#:G-30736-10287 . 0)) ((NIL)) (ASDF/COMPONENT:COMPONENT .
#<ASDF/LISP-ACTION:CL-SOURCE-FILE "asdf" "build" "asdf">)
(ASDF/OPERATION:OPERATION . #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL>)
(CLOS::.THIS-GENERIC-FUNC. . #<STANDARD-GENERIC-FUNCTION
ASDF/ACTION:PERFORM-WITH-RESTARTS 117185536>) (CLOS::.THIS-METHOD. .
#<STANDARD-METHOD PERFORM-WITH-RESTARTS (#<The BUILT-IN-CLASS T
61887520> #<The BUILT-IN-CLASS T 61887520>) 99525376>)
(#:|%the-lock--30736-10272| . #<lock (recursive) MT:+LOAD-COMPILE-LOCK+
000000000282f280>) (#:|%lock-acquired--30736-10273| . T)))
12: (#<bytecompiled-function 0000000004ddfd80> ((ASDF-TEST::KEYS)
(#:|%the-lock--30736-1020| . #<lock (recursive) MT:+LOAD-COMPILE-LOCK+
000000000282f280>) (#:|%lock-acquired--30736-1021| . T)))
13: (#<bytecompiled-function ASDF-TEST::CALL-QUIETLY> ((ASDF-TEST::THUNK
. #<bytecompiled-closure 000000000556c3c0>) (#:|%the-lock--30736-962| .
#<lock (recursive) MT:+LOAD-COMPILE-LOCK+ 000000000282f280>)
(#:|%lock-acquired--30736-963| . T)))
14: (#<bytecompiled-function ASDF-TEST:LOAD-ASDF-SYSTEM>
((ASDF-TEST::KEYS) (#:|%the-lock--30736-1020| . #<lock (recursive)
MT:+LOAD-COMPILE-LOCK+ 000000000282f280>)
(#:|%lock-acquired--30736-1021| . T)))
15: (#<bytecompiled-function 0000000004f3c200> ((ASDF-TEST::TAG .
"REQUIRE") (ASDF-TEST::NEW-METHOD . ASDF-TEST:LOAD-ASDF-SYSTEM)
(ASDF-TEST::OLD-METHOD . ASDF-TEST:LOAD-ASDF-LISP)
(#:|%the-lock--30736-1320| . #<lock (recursive) MT:+LOAD-COMPILE-LOCK+
000000000282f280>) (#:|%lock-acquired--30736-1321| . T)))
16: (#<bytecompiled-function ASDF-TEST::CALL-WITH-TEST>
((:ASDF-TEST-DONE . :ASDF-TEST-DONE) (ASDF-TEST::THUNK .
#<bytecompiled-closure 0000000004fb2960>) (#:|%the-lock--30736-932| .
#<lock (recursive) MT:+LOAD-COMPILE-LOCK+ 000000000282f280>)
(#:|%lock-acquired--30736-933| . T)))
17: (#<bytecompiled-function ASDF-TEST::TEST-UPGRADE> ((ASDF-TEST::TAG .
"REQUIRE") (ASDF-TEST::NEW-METHOD . ASDF-TEST:LOAD-ASDF-SYSTEM)
(ASDF-TEST::OLD-METHOD . ASDF-TEST:LOAD-ASDF-LISP)
(#:|%the-lock--30736-1320| . #<lock (recursive) MT:+LOAD-COMPILE-LOCK+
000000000282f280>) (#:|%lock-acquired--30736-1321| . T)))
18: (#<bytecompiled-function SI:BYTECODE> NIL)
19: (#<bytecompiled-function SI:BYTECODE> ((SI::OUTPUT-FILE . T)
(SI::C-FILE) (SI::H-FILE) (SI::DATA-FILE) (SI::EXTERNAL-FORMAT .
:DEFAULT) (SI::VERBOSE . T) (SI::FASL-P . T) (MKCL:QUIT)))
20: (#<bytecompiled-function SI:BYTECODE> NIL)
21: (NIL NIL)
Above backtrace due to this condition:
The index 35 (max: 31) is not a valid slot index in the object
#<ASDF/SYSTEM:SYSTEM "asdf">.
Script failed
upgrade FAILED for mkcl from REQUIRE using method
'load-asdf-lisp'load-asdf-system
you can retry just that test with:
ASDF_UPGRADE_TEST_TAGS="REQUIRE"
ASDF_UPGRADE_TEST_METHODS="'load-asdf-lisp'load-asdf-system"
./test/run-tests.sh -u mkcl
or more interactively (and maybe with rlwrap or in emacs), start with:
mkcl -norc
then copy/paste:
(load "test/script-support.lisp") (asdf-test::da) (test-upgrade
'load-asdf-lisp'load-asdf-system "REQUIRE")

We should probably move this to a launchpad ticket....