[cl-store-devel] CL-STORE on ECL

[Elliott Slaughter]

On Mon, Aug 17, 2009 at 12:28 PM, Sean Ross <rosssd at gmail.com> wrote:

> I wouldn't expect tests to fail and unfortunately do not have the time to
> track all of them down.
> The worst offender here is the failures of the standard-object cases which can be resolved
>
> by adding #:slot-definition-name to the ECL imports in package.lisp (or by using the attached package.lisp file)
>

Ok, now only 7 tests fail. I have attached the test results just in case
they interest you.

On 17 Aug 2009, at 17:01, Elliott Slaughter wrote:
>
> On Mon, Aug 17, 2009 at 8:51 AM, Sean Ross <rosssd at gmail.com> wrote:
>
>> Have you tried contacting the ECL mailing list with this?The
>> only change in the ASDF file was conditionalizing the cusom.lisp form with a #-ecl
>> and I
>> see no reason why that should break compilation of other files.
>>
>> Unfortunately package.lisp doesn't do anything special and I have no idea
>> why ECL
>> would refuse to load a compiled version of the file.
>>
>> Have you tried a remove the generated fasl's and compiling in a fresh
>> image?
>> I'm afraid that's the best I have.
>>
>
> Oops, I was using ECL inside Cygwin instead of MinGW. Sorry for the noise.
>
> I do get the following errors in the test suite though. (I don't know if
> these are expected errors or not.)
>
> 14 out of 113 total tests failed: CHAR.4, STRING.4, VECTOR.3,
> STANDARD-OBJECT.1,
>  STANDARD-OBJECT.2,
>    STANDARD-OBJECT.3, STANDARD-OBJECT.4, STANDARD-CLASS.1,
>    STANDARD-CLASS.2, STANDARD-CLASS.3, CONDITION.1, CONDITION.2, CIRC.5,
>    CIRC.13.
>
> --
> Elliott Slaughter
>
> "Don't worry about what anybody else is going to do. The best way to
> predict the future is to invent it." - Alan Kay
>
>
>
>


-- 
Elliott Slaughter

"Don't worry about what anybody else is going to do. The best way to predict
the future is to invent it." - Alan Kay
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-store-devel/attachments/20090817/324832a0/attachment.html>
-------------- next part --------------
Doing 113 pending tests of 113 tests total.
 INTEGER.1 INTEGER.2 INTEGER.3 INTEGER.4 INTEGER.5 INTEGER.6 INTEGER.7
 RATIO.1 RATIO.2 RATIO.3 RATIO.4 RATIO.5 COMPLEX.1 COMPLEX.2 COMPLEX.3
 COMPLEX.4 COMPLEX.5 COMPLEX.6 SINGLE-FLOAT.1 SINGLE-FLOAT.2
 SINGLE-FLOAT.3 SINGLE-FLOAT.4 SINGLE-FLOAT.5 DOUBLE-FLOAT.1
 DOUBLE-FLOAT.2 DOUBLE-FLOAT.3 DOUBLE-FLOAT.4 DOUBLE-FLOAT.5
 DOUBLE-FLOAT.6 CHAR.1 CHAR.2 CHAR.3
Test CHAR.4 failed
Form: (RESTORES (CODE-CHAR 255))
Expected value: T
Actual value: #<a TYPE-ERROR>.
 STRING.1 STRING.2 STRING.3
Test STRING.4 failed
Form: (RESTORES
       (MAKE-ARRAY 10
                   :INITIAL-ELEMENT
                   #\f
                   :ELEMENT-TYPE
                   'CHARACTER
                   :FILL-POINTER
                   3))
Expected value: T
Actual value: NIL.
 VECTOR.1 VECTOR.2
Test VECTOR.3 failed
Form: (RESTORES
       (MAKE-ARRAY 5
                   :ELEMENT-TYPE
                   'FIXNUM
                   :FILL-POINTER
                   2
                   :INITIAL-CONTENTS
                   (LIST 1 2 3 4 5)))
Expected value: T
Actual value: NIL.
 VECTOR.4 VECTOR.5 VECTOR.6 VECTOR.OCTET.1 ARRAY.1 ARRAY.2 ARRAY.3
 ARRAY.4 ARRAY.5 SYMBOL.1 SYMBOL.2 SYMBOL.3 SYMBOL.4 SYMBOL.5 SYMBOL.6
 SYMBOL.7 GENSYM.1 GENSYM.2 CONS.1 CONS.2 CONS.3 CONS.4 CONS.5 CONS.6
 CONS.7 PACKAGE.1 PACKAGE.2 STANDARD-OBJECT.1 STANDARD-OBJECT.2
Test STANDARD-OBJECT.3 failed
Form: (LET ((*STORE-CLASS-SLOTS* NIL) (VAL (MAKE-INSTANCE 'BAZ :Z 9)))
        (STORE VAL *TEST-FILE*)
        (MAKE-INSTANCE 'BAZ :Z 2)
        (= (GET-Z (RESTORE *TEST-FILE*)) 2))
Expected value: T
Actual value: #<a STORE-ERROR>.
 STANDARD-OBJECT.4
Test STANDARD-CLASS.1 failed
Form: (PROGN (STORE (FIND-CLASS 'FOO) *TEST-FILE*) (RESTORE *TEST-FILE*) T)
Expected value: T
Actual value: #<a STORE-ERROR>.
Test STANDARD-CLASS.2 failed
Form: (PROGN (STORE (FIND-CLASS 'BAR) *TEST-FILE*) (RESTORE *TEST-FILE*) T)
Expected value: T
Actual value: #<a STORE-ERROR>.
Test STANDARD-CLASS.3 failed
Form: (PROGN (STORE (FIND-CLASS 'BAZ) *TEST-FILE*) (RESTORE *TEST-FILE*) T)
Expected value: T
Actual value: #<a STORE-ERROR>.
 CONDITION.1 CONDITION.2 SETF.1 SETF.2 SETF.3 PATHNAME.1 PATHNAME.2
 PATHNAME.3 BUILT-IN.1 BUILT-IN.2 FIND-BACKEND.1 FIND-BACKEND.2
 FIND-BACKEND.3 CIRC.1 CIRC.2 CIRC.3 CIRC.4 CIRC.5 CIRC.6 CIRC.8 CIRC.9
 CIRC.10 CIRC.11 CIRC.12 CIRC.13 CIRC.14 CIRC.15 CIRC.16 LARGE.1 LARGE.2
 CORRECT.LIST.1 CUSTOM.1 FUNCTION.1 FUNCTION.2 GFUNCTION.1 GFUNCTION.2
 GFUNCTION.3 NOCIRC.1 SERIALIZATION-UNIT.1
7 out of 113 total tests failed: CHAR.4, STRING.4, VECTOR.3, STANDARD-OBJECT.3,
STANDARD-CLASS.1,
   STANDARD-CLASS.2, STANDARD-CLASS.3.
NIL