[elephant-devel] ClozureCL Status?

Ian Eslick eslick at media.mit.edu
Tue Apr 13 18:47:01 UTC 2010 

Can you try with an earlier version?  Say CCL 1.3?

This may be due to changes in the 32-bit compiler which has a very different compiler backend than the 64-bit which I've been using fine on linux Intel and AMD x86 machines.

On Apr 12, 2010, at 10:52 PM, Kevin Raison wrote:

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

More information about the elephant-devel mailing list