[elephant-devel] ClozureCL Status?

Tue Apr 13 05:52:06 UTC 2010

Ian, I tried again, making absolutely sure to clean out the test 
directories using delscript.sh.  In this case, I always see some sort of 
memory fault, such as

 > Error: Fault during read of memory address #x1939A388
 > While executing: CCL::%BIGNUM-SIGN, in process listener(1).

And the tests never run to completion.

-Kevin

On 04/12/2010 09:12 PM, Ian Eslick wrote:
> 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
>>is not of the expected type MACPTR.
>> 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
>
>
> _______________________________________________
> elephant-devel site list
> elephant-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel