Issue loading fasl with computed constant of subtype (complex float)

[death]

1. Compile attached file "test.lisp"
2. In a clean image, load the "test.fasl" file generated in last step

An error will be signaled:

debugger invoked on a UNBOUND-VARIABLE in thread
#<THREAD "main thread" RUNNING {1000508083}>:
  The variable CRASH-AND-BURN is unbound.

Backtrace:

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000508083}>
0: (SB-EXT:SYMBOL-GLOBAL-VALUE CRASH-AND-BURN)
1: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for "file /home/death/tmp/test.fasl" {1003CB5493}> :TABLE #(210 #<PACKAGE "SB-IMPL"> SB-IMPL::%DEFPACKAGE #<PACKAGE "SB-C"> SB-C::TOP-LEVEL-FORM #1="TEST" QUOTE (QUOTE NIL) #2="CL" #3=(#2#) (QUOTE #3#) (#1#) ...) :STACK #(0 SB-EXT:SYMBOL-GLOBAL-VALUE CRASH-AND-BURN SB-C::%DEFCONSTANT 13640 (SB-C::TOP-LEVEL-FORM (SB-C::%DEFCONSTANT (QUOTE PIE-IN-THE-SKY) (IF # # #) (SB-C:SOURCE-LOCATION))) NIL NIL (SB-INT:SFUNCTION NIL NULL) #<SB-KERNEL:FDEFN SB-C::%DEFCONSTANT> #<SB-KERNEL:FDEFN VEC> PIE-IN-THE-SKY ...) :NAME-BUFFER #("\0" "CRASH-AND-BURNVALUEAGE-OR-LOSE\0") :DEPRECATED-STUFF NIL :SKIP-UNTIL NIL) NIL)
2: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /home/death/tmp/test.fasl" {1003CB5493}> NIL NIL)
3: ((FLET SB-FASL::THUNK :IN LOAD))
4: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {7F2DE3E9F70B}> #<SB-SYS:FD-STREAM for "file /home/death/tmp/test.fasl" {1003CB5493}>)
5: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /home/death/tmp/test.fasl" {1003CB5493}> T)
6: (LOAD "test.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
7: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD "test.fasl") #<NULL-LEXENV>)
8: (EVAL (LOAD "test.fasl"))
9: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(load \"test.fasl\")")))
10: (SB-IMPL::TOPLEVEL-INIT)
11: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
12: ((FLET "WITHOUT-INTERRUPTS-BODY-7" :IN SB-EXT:SAVE-LISP-AND-DIE))
13: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))