[bknr-devel] problem deleting datastore objects and multiple inheritance

[Kamen TOMOV]

Hi, 

I have the following problem with bknr-datastore:

(define-persistent-class a ()
  ())                        

(define-persistent-class b ()
  ())                        

(define-persistent-class c (a)
  ())                     

(define-persistent-class d (a b)
  ())                     

(delete-object (make-object 'a)) 
=> T   

(delete-object (make-object 'c)) 
=> T   

(delete-object (make-object 'd)) 
=>

Type-error in KERNEL::OBJECT-NOT-SIMPLE-VECTOR-ERROR-HANDLER:
   NIL is not of type SIMPLE-VECTOR
   [Condition of type TYPE-ERROR]

Restarts:
  0: [RETRY-TRANSACTION] Retry the transaction #<TRANSACTION 15.09.2006 15:37:18 TX-DELETE-OBJECT 75>.
  1: [ABORT-REQUEST] Abort handling SLIME request.
  2: [ABORT] Return to Top-Level.

Backtrace:
  0: ((METHOD BKNR.SKIP-LIST:SKIP-LIST-DELETE NIL (BKNR.SKIP-LIST:SKIP-LIST T)) (#(2) . #(#)) #<unused-arg> #<BKNR.SKIP-LIST:SKIP-LIST length = 15 {5A483CDD}> 75)
  1: ((METHOD INDEX-REMOVE NIL (CLASS-SKIP-INDEX T)) (#(2 0 1) . #()) #<unused-arg> #<CLASS-SKIP-INDEX {5A42962D}> #<D ID: 75>)
  2: ((METHOD BKNR.INDICES::DESTROY-OBJECT-WITH-CLASS NIL (INDEXED-CLASS T)) (#(17) . #()) #<unused-arg> #<PERSISTENT-CLASS D {58E9228D}> #<D ID: 75>)
  3: ("DEFMETHOD EXECUTE-UNLOGGED (TRANSACTION)")
  4: ("DEFCLASS MP-STORE" #<Closure Over Function "DEFMETHOD EXECUTE-UNLOGGED (TRANSACTION)" {58EB87C1}>)
  5: ((METHOD BKNR.DATASTORE::EXECUTE-UNLOGGED (:AROUND) (TRANSACTION)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Closure Over Function "LAMBDA (#:G4209 #:G4210 #:G4211)" {5819E5D9}> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1)) #<TRANSACTION 15.09.2006 15:37:18 TX-DELETE-OBJECT 75>)
  6: ("DEFMETHOD EXECUTE-TRANSACTION (STORE TRANSACTION)")
  7: ("DEFCLASS MP-STORE" #<Closure Over Function "DEFMETHOD EXECUTE-TRANSACTION (STORE TRANSACTION)" {58EB8749}>)
  8: ((METHOD BKNR.DATASTORE::EXECUTE-TRANSACTION NIL (STORE TRANSACTION)) (#(0) . #(#)) #<#1=unused-arg> #<#1#> #<TRANSACTION 15.09.2006 15:37:18 TX-DELETE-OBJECT 75>)


I'm using the latest bknr and CMUCL 19a-release-20040728 . Here is how
the store is defined:

(make-instance 'mp-store
		 :directory "/tmp/ams-object-store/"
		 :subsystems (list (make-instance 'store-object-subsystem))

Could please advice? Thanks!

-- 
Kamen TOMOV