Support for circular forms breaks Ironclad compilation

[Mark Evenson]

The support for circularity in compiled forms committed in r13600 breaks the build of ironclad-0.28 as installed from Quicklisp:

The assertion (OR (EQ SYSTEM:INDEX T) (FIXNUMP SYSTEM::OBJECT)) failed.
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [CONTINUE] Retry assertion.
 1: [TRY-RECOMPILING] Try recompiling whirlpool
 2: [RETRY] Retry compiling #<IRONCLAD-SYSTEM::IRONCLAD-SOURCE-FILE "ironclad" "src" "digests" "whirlpool">.
 3: [ACCEPT] Continue, treating compiling #<IRONCLAD-SYSTEM::IRONCLAD-SOURCE-FILE "ironclad" "src" "digests" "whirlpool"> as having been successful.
 4: [ABORT] Abort compilation.
 5: [*ABORT] Return to SLIME's top level.
 --more--

Backtrace:
  0: (#<FUNCTION {21037517}> #<SIMPLE-ERROR {4AEE0373}> #<FUNCTION {21037517}>)
  1: (APPLY #<FUNCTION {21037517}> (#<SIMPLE-ERROR {4AEE0373}> #<FUNCTION {21037517}>))
  2: (SYSTEM::RUN-HOOK SYSTEM::*INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR {4AEE0373}> #<FUNCTION {21037517}>)
  3: (INVOKE-DEBUGGER #<SIMPLE-ERROR {4AEE0373}>)
  4: (ERROR #<SIMPLE-ERROR {4AEE0373}>)
  5: (SYSTEM::ASSERT-ERROR (OR (EQ SYSTEM:INDEX T) (FIXNUMP SYSTEM::OBJECT)) NIL NIL)
  6: (SYSTEM::DF-HANDLE-CIRCULARITY 2276983119 #<FILE-STREAM {69FC49EF}> NIL)
  7: (SYSTEM::DUMP-OBJECT 2276983119 #<FILE-STREAM {69FC49EF}>)
  8: (SYSTEM::DUMP-VECTOR #(0 0 404997864 2276983119 916902645 2037354834 ...) #<FILE-STREAM {69FC49EF}>)
  9: (SYSTEM::DUMP-OBJECT #(0 0 404997864 2276983119 916902645 2037354834 ...) #<FILE-STREAM {69FC49EF}>)
 10: (SYSTEM::DUMP-CONS (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...)) #<FILE-STREAM {69FC49EF}>)
 11: (SYSTEM::DUMP-OBJECT (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...)) #<FILE-STREAM {69FC49EF}>)
 12: (SYSTEM::DUMP-CONS (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...))) #<FILE-STREAM {69FC49EF}>)
 13: (SYSTEM::DUMP-OBJECT (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...))) #<FILE-STREAM {69FC49EF}>)
 14: (SYSTEM:DUMP-FORM (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...))) #<FILE-STREAM {69FC49EF}>)
 15: (SYSTEM::OUTPUT-FORM (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...))))
 16: (SYSTEM::PROCESS-TOPLEVEL-FORM (DEFCONSTANT IRONCLAD::+RC+ (IF (BOUNDP 'IRONCLAD::+RC+) (SYMBOL-VALUE 'IRONCLAD::+RC+) #(0 0 404997864 2276983119 916902645 2037354834 ...))) #<FILE-STREAM {69FC49EF}> ..
 17: (SYSTEM::PROCESS-TOPLEVEL-FORM (IRONCLAD::DEFCONST IRONCLAD::+RC+ #(0 0 404997864 2276983119 916902645 2037354834 ...)) #<FILE-STREAM {69FC49EF}> NIL)

[Mark Evenson]

Ironclad compilation was completed as part of shipping 1.0.0.