[elephant-devel] problems w/ ClozureCL

[Derrell Piper]

Hi,

Configuration:	Mac OS X, 10.6.1 (Snow Leopard)
Clozure CL:	trunk (1.4 via svn), X86-64
Elephant:		trunk (1.0 via darcs)

Also, FYI, SBCL (trunk) is working fine.

Two issues.

First, trying to do a '(use-package :elephant)' results in the  
following:

Using #<Package "ELEPHANT"> in #<Package "COMMON-LISP-USER">
would cause name conflicts with symbols already present in that package:
BTREE  ELEPHANT:BTREE
STORE-CONTROLLER  ELEPHANT:STORE-CONTROLLER
*DEFAULT-RETRIES*  ELEPHANT:*DEFAULT-RETRIES*
*STORE-CONTROLLER*  ELEPHANT:*STORE-CONTROLLER*

Second, the bdb tests are not clean:

  Did 501 checks.
     Pass: 477 (95%)
     Skip: 0 ( 0%)
     Fail: 24 ( 4%)

  Failure Details:
  --------------------------------
  INDEXING-RANGE []:
       Unexpected Error: #<SIMPLE-ERROR #x30004284DCBD>
There is no applicable method for the generic function:
   #<STANDARD-GENERIC-FUNCTION SLOT1 #x30004222999F>
when called with arguments:
   (NIL)..
  --------------------------------
  --------------------------------
  INDEXING-RANGE-SIMPLE []:
       Unexpected Error: #<SIMPLE-ERROR #x30004294A31D>
There is no applicable method for the generic function:
   #<STANDARD-GENERIC-FUNCTION ELEPHANT::OID #x3000411DF42F>
when called with arguments:
   (NIL)..
  --------------------------------
  --------------------------------
  INDEXING-MIXED []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-F 'SLOT1 N)) evaluated  
to 6, which is not = to 2..
  --------------------------------
  --------------------------------
  INDEXING-MIXED []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-F 'SLOT1 (PRINC-TO- 
STRING N))) evaluated to 2, which is not = to 1..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-D 'SLOT1 "2"))  
evaluated to 30, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-D 'SLOT1 "8"))  
evaluated to 30, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-D 'SLOT1 "0"))  
evaluated to 30, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (FIRST INSTANCES) evaluated to #<IDX-ONE-D oid:32470>, which is  
not EQUAL to NIL..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (ELT INSTANCES 10) evaluated to #<IDX-ONE-D oid:32480>, which  
is not EQUAL to NIL..
  --------------------------------
  --------------------------------
  INDEXING-BASIC []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-F 'SLOT1 N)) evaluated  
to 6, which is not = to 2..
  --------------------------------
  --------------------------------
  INDEXING-BASIC []:
       (LENGTH (GET-INSTANCES-BY-RANGE 'IDX-ONE-F 'SLOT1 N (+ 1 N)))  
evaluated to 7, which is not = to 3..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-STRING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-B 'SLOT1 "one"))  
evaluated to 6, which is not = to 2..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-STRING []:
       (LIST INST2) evaluated to (#<IDX-ONE-B oid:32457>), which is  
not EQUAL to (NIL NIL #<IDX-ONE-B oid:32457>)..
  --------------------------------
  --------------------------------
  INDEXING-WITH-DUPSTUFF-BASIC []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-F 'SLOT1 N)) evaluated  
to 6, which is not = to 2..
  --------------------------------
  --------------------------------
  LARGER-INDEXING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-C 'SLOT1 2)) evaluated  
to 30, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-C 'SLOT1 8)) evaluated  
to 30, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-C 'SLOT1 0)) evaluated  
to 30, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING []:
       (FIRST INSTANCES) evaluated to #<IDX-ONE-C oid:32346>, which is  
not EQUAL to NIL..
  --------------------------------
  --------------------------------
  LARGER-INDEXING []:
       (ELT INSTANCES 10) evaluated to #<IDX-ONE-C oid:32356>, which  
is not EQUAL to NIL..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-SYMBOL []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-E 'SLOT1 'ONE))  
evaluated to 6, which is not = to 2..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-SYMBOL []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-E 'SLOT1 'TWO))  
evaluated to 3, which is not = to 1..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-SYMBOL []:
       (LIST INST2) evaluated to (#<IDX-ONE-E oid:32344>), which is  
not EQUAL to (NIL NIL #<IDX-ONE-E oid:32344>)..
  --------------------------------
  --------------------------------
  INDEXING-HIERARCHY []:
       Unexpected Error: #<SIMPLE-ERROR #x3000427BE05D>
There is no applicable method for the generic function:
   #<STANDARD-GENERIC-FUNCTION SLOT1 #x30004222999F>
when called with arguments:
   (NIL)..
  --------------------------------
  --------------------------------
  INDEXING-CHANGE-CLASS []:
       1 evaluated to 1, which is not = to 3..
  --------------------------------

NIL
ELE-TESTS>