#171: Support for circular forms breaks Ironclad compilation --------------------------------+------------------------------------------- Reporter: mevenson | Owner: ehuelsmann Type: defect | Status: new Priority: major | Milestone: 0.28 Component: compiler | Version: 0.27 Keywords: quicklisp ironclad | --------------------------------+------------------------------------------- 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)

}}}