split-sequence fails to load with asdf 3.3.1

[metayan]

When applying
metayan/mezzano-asdf@4cf93c0
( https://github.com/froggey/asdf/pull/1 )
we encounter this error:

ASDF could not load split-sequence because
The value of SYSTEM.INTERNALS::INDEX is (ASDF/ACTION:DOWNWARD-OPERATION "slot unbound"), which is not of type (INTEGER 0)..
The value of SYSTEM.INTERNALS::INDEX is (ASDF/ACTION:DOWNWARD-OPERATION "slot unbound"), which is not of type (INTEGER 0).
Available restarts:
2 STORE-VALUE: Input a new value for SYSTEM.INTERNALS::INDEX.
1 ASDF/SESSION:RETRY: Retry ASDF operation.
0 ASDF/SESSION:CLEAR-CONFIGURATION-AND-RETRY: Retry ASDF operation after resetting the configuration.
2080004FBDB0 8176B1F3 SYSTEM.INTERNALS::BACKTRACE
2080004FBE20 81804FEC (LAMBDA :IN SYSTEM.INTERNALS::ENTER-DEBUGGER)
2080004FC160 80205008 SYSTEM.INTERNALS::%WITH-STANDARD-IO-SYNTAX
2080004FC400 81770AD0 SYSTEM.INTERNALS::ENTER-DEBUGGER
2080004FC420 817736E3 INVOKE-DEBUGGER
2080004FC480 8177261C ERROR
2080004FC5A0 801376F9 SYSTEM.INTERNALS::CHECK-TYPE-ERROR
2080004FC6A0 8005F922 ELT
2080004FC6D0 8176D52B MEZZANO.CLOS::FAST-SLOT-READ
2080004FC710 817A9B34 MEZZANO.CLOS::SLOW-SINGLE-DISPATCH-METHOD-LOOKUP*
2080004FC790 8179BBCA (LAMBDA :IN MEZZANO.CLOS::COMPUTE-READER-DISCRIMINATOR)
2080004FC7D0 817AA9A7 MEZZANO.CLOS::SLOW-SINGLE-DISPATCH-METHOD-LOOKUP*
2080004FC850 817AB333 (LAMBDA :IN MEZZANO.CLOS::STD-COMPUTE-DISCRIMINATING-FUNCTION)
2080004FC8D0 82751ED8 ASDF/ACTION::DOWNWARD-OPERATION-DEPENDS-ON
2080004FC900 82752044 (DEFMETHOD ASDF/ACTION:COMPONENT-DEPENDS-ON (ASDF/ACTION:DOWNWARD-OPERATION ASDF/COMPONENT:PARENT-COMPONENT))
2080004FC940 82751A53 (LAMBDA :IN (LAMBDA :IN (DEFMETHOD ASDF/ACTION:COMPONENT-DEPENDS-ON :AROUND (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT))))

If this is applied to Mezzano

diff --git a/ipl.lisp b/ipl.lisp
index 412bdfbf..2ba16b86 100644
--- a/ipl.lisp
+++ b/ipl.lisp
@@ -88,7 +88,7 @@ (defun home-source-registry
 (eval (read-from-string "(push 'home-source-registry asdf:*default-source-registries*)"))
 
 ;; Split-sequence
-(require :split-sequence)
+;;(require :split-sequence)
 
 ;; A bunch of GUI related systems.
 (require :zpb-ttf)
@@ -178,7 +178,7 @@ (sys.int::cal "sys:source;gui;popup-io-stream.lisp")
 (sys.int::cal "sys:source;gui;xterm.lisp")
 (sys.int::cal "sys:source;applications;telnet.lisp")
 (sys.int::cal "sys:source;applications;mandelbrot.lisp")
-(sys.int::cal "sys:source;applications;irc.lisp")
+;;(sys.int::cal "sys:source;applications;irc.lisp")
 (require :med)
 (sys.int::cal "sys:source;applications;peek.lisp")
 (sys.int::cal "sys:source;applications;fancy-repl.lisp")

we get a clean start.

asdf-3.3.1-temp.diff.txt