[armedbear-ticket] [armedbear] #171: Support for circular forms breaks Ironclad compilation

[armedbear]

#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)

 }}}

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/171>
armedbear <http://common-lisp.net/project/armedbear>
armedbear