[elephant-devel] ClozureCL Status?

[Kevin Raison]

I am curious what the official status of ClozureCL support is at this 
point?  I was very happy to find that using 64-bit FreeBSD 6.x, BDB 4.7 
and the CCL 1.5 release candidate, I see this when running the test 
suite for a fresh darcs checkout of Elephant 1.0:

  Did 508 checks.
     Pass: 508 (100%)
     Skip: 0 ( 0%)
     Fail: 0 ( 0%)

But using CCL 1.4 or 1.5 on Linux x86 with BDB 4.7 fails tests in 
strange ways, and never quite in the same way, but sometimes passes all 
tests.  Can anyone comment on the current plans for Clozure support? Are 
these known issues?

Some failure examples:

 > Error: Fault during read of memory address #xC2DC8
 > While executing: CCL::WRITE-ABBREVIATE-QUOTE, in process listener(1).

  or

Failure Details:
--------------------------------
FIXNUM-RANDOM-TEST []:
      Unexpected Error: #<CCL::CANT-CONSTRUCT-ARGLIST #x18AEFF86>
Can't construct argument list from (:TEST-EXPR 0 EQUAL VAR (DESERIALIZE 
(SERIALIZE VAR OUT-BUF *STORE-CONTROLLER*) *STORE-CONTROLLER*) 
#<TEST-CASE FIXNUM-RANDOM-TEST #x188C02B6> . "no reason given")...
--------------------------------

  or

 > Error: Fault during read of memory address #x99BE8
 > While executing: CCL::VALID-HEADER-P, in process listener(1).

  or

 > Error: Fault during read of memory address #x70BAC744
 > While executing: CCL::EQ-HASH-FIND, in process listener(1).

  or

 > Error: Fault during read of memory address #x8C1ED
 > While executing: CCL::%RETURN-ADDRESS-OFFSET, in process listener(1).

  or

Did 501 checks.
     Pass: 478 (95%)
     Skip: 0 ( 0%)
     Fail: 23 ( 4%)

  Failure Details:
  --------------------------------
  LARGER-INDEXING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-C 'SLOT1 2)) evaluated 
to 20, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-C 'SLOT1 8)) evaluated 
to 20, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-C 'SLOT1 0)) evaluated 
to 20, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING []:
       (FIRST INSTANCES) evaluated to #<IDX-ONE-C oid:3580>, which is 
not EQUAL to NIL..
  --------------------------------
  --------------------------------
  LARGER-INDEXING []:
       (ELT INSTANCES 10) evaluated to #<IDX-ONE-C oid:3590>, which is 
not EQUAL to NIL..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-D 'SLOT1 "2")) evaluated 
to 20, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-D 'SLOT1 "8")) evaluated 
to 20, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-D 'SLOT1 "0")) evaluated 
to 20, which is not = to 10..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (FIRST INSTANCES) evaluated to #<IDX-ONE-D oid:3480>, which is 
not EQUAL to NIL..
  --------------------------------
  --------------------------------
  LARGER-INDEXING-WITH-STRING []:
       (ELT INSTANCES 10) evaluated to #<IDX-ONE-D oid:3490>, which is 
not EQUAL to NIL..
  --------------------------------
  --------------------------------
  INDEXING-WITH-DUPSTUFF-BASIC []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-F 'SLOT1 N)) evaluated 
to 4, which is not = to 2..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-SYMBOL []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-E 'SLOT1 'ONE)) 
evaluated to 4, which is not = to 2..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-SYMBOL []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-E 'SLOT1 'TWO)) 
evaluated to 2, which is not = to 1..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-SYMBOL []:
       (LIST INST2) evaluated to (#<IDX-ONE-E oid:2075>), which is not 
EQUAL to (NIL #<IDX-ONE-E oid:2075>)..
  --------------------------------
  --------------------------------
  INDEXING-BASIC []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-F 'SLOT1 N)) evaluated 
to 4, which is not = to 2..
  --------------------------------
  --------------------------------
  INDEXING-BASIC []:
       (LENGTH (GET-INSTANCES-BY-RANGE 'IDX-ONE-F 'SLOT1 N (+ 1 N))) 
evaluated to 5, which is not = to 3..
  --------------------------------
  --------------------------------
  INDEXING-MIXED []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-F 'SLOT1 N)) evaluated 
to 4, which is not = to 2..
  --------------------------------
  --------------------------------
  INDEXING-RANGE []:
       Unexpected Error: #<SIMPLE-ERROR #x1536FC0E>
There is no applicable method for the generic function:
   #<STANDARD-GENERIC-FUNCTION SLOT1 #x1512367E>
when called with arguments:
   (NIL)..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-STRING []:
       (LENGTH (GET-INSTANCES-BY-VALUE 'IDX-ONE-B 'SLOT1 "one")) 
evaluated to 4, which is not = to 2..
  --------------------------------
  --------------------------------
  INDEXING-BASIC-WITH-STRING []:
       (LIST INST2) evaluated to (#<IDX-ONE-B oid:2046>), which is not 
EQUAL to (NIL #<IDX-ONE-B oid:2046>)..
  --------------------------------
  --------------------------------
  INDEXING-RANGE-SIMPLE []:
       Unexpected Error: #<SIMPLE-ERROR #x153DCAFE>
There is no applicable method for the generic function:
   #<STANDARD-GENERIC-FUNCTION ELEPHANT::OID #x14BFC1CE>
when called with arguments:
   (NIL)..
  --------------------------------
  --------------------------------
  INDEXING-HIERARCHY []:
       Unexpected Error: #<SIMPLE-ERROR #x1530268E>
There is no applicable method for the generic function:
   #<STANDARD-GENERIC-FUNCTION SLOT1 #x1512367E>
when called with arguments:
   (NIL)..
  --------------------------------
  --------------------------------
  INDEXING-CHANGE-CLASS []:
       1 evaluated to 1, which is not = to 2..
  --------------------------------