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@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
