[elephant-devel] ClozureCL Status?

Tue Apr 13 04:12:28 UTC 2010

I can't speak to the specific errors, although I'm just setting up my own x86-32bit Linux installation with ccl and Elephant so will let you know if I have problems.  

The errors in the tests look like you didn't clear out the test databases (there's a script in the test folder to do this).

Ian

On Apr 12, 2010, at 8:00 PM, Kevin Raison wrote:

> 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..
>  --------------------------------
> 
> 
> _______________________________________________
> elephant-devel site list
> elephant-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel