[elephant-devel] 'not of type FIXNUM' type-error

[Dmitry V. Gorbatovsky]

Hello , here is debian testing with sbcl 1.02
and cvs version of elephant. Intel 32-bit machine with
1gb of ram.

The code I am try to run is pretty straitforward,
it runs with 2000x2000 array, but returns type-error
with anything bigger.

(let ((big-array (make-array '(5000 5000)

                  			:element-type 'float
                  			:initial-element 0.0)))

  (time (ele:with-open-store
            (*test-bdb-spec*)
          (ele:add-to-root 'big-array big-array))))

And here is output from the debugger:

The value 1000000640 is not of type FIXNUM.
   [Condition of type TYPE-ERROR]

Restarts:
  0: [ABORT-REQUEST] Abort handling SLIME request.
  1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "worker" {B2CBE61}>)

Backtrace:
  0: (ELEPHANT-MEMUTIL:RESIZE-BUFFER-STREAM #<unavailable lambda list>)
      Locals:
  1: ((LABELS ELEPHANT-SERIALIZER2::%SERIALIZE) #<unavailable lambda list>)
      Locals:
  2: ((LABELS ELEPHANT-SERIALIZER2::%SERIALIZE) #<unavailable lambda list>)
      Locals:
  3: (ELEPHANT-SERIALIZER2::SERIALIZE #<unavailable lambda list>)
      Locals:
  4: ((SB-PCL::FAST-METHOD (SETF GET-VALUE) (T T DB-BDB::BDB-BTREE))
#<unavailable lambda list>)
      Locals:
  5: ((LAMBDA NIL))
      Locals:
  6: (SB-IMPL::%TIME #<CLOSURE (LAMBDA NIL) {A90C005}>)
      Locals:
        SB-DEBUG::ARG-0 = #<CLOSURE (LAMBDA NIL) {A90C005}>
  7: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LET ((BIG-ARRAY #)) (TIME
 (WITH-OPEN-STORE # #))) #<NULL-LEXENV>)
      Locals:
        SB-DEBUG::ARG-0 = (LET ((BIG-ARRAY (MAKE-ARRAY # :ELEMENT-TYPE
# :INITIAL-ELEMENT 0.0))) (TIME (WITH-OPEN-STORE (*TEST-BDB-SPEC*)
(ADD-TO-ROOT # BIG-ARRAY))))
        SB-DEBUG::ARG-1 = #<NULL-LEXENV>
  8: ((LAMBDA NIL))
      Locals:
  9: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA NIL) {B2CD03D}>)

I would highly appreciate any help.
Regards, Dmitry

-- 
Dmitry V. Gorbatovsky