[Openmcl-devel] Darwin problems using UFFI
Miguel Arroz
arroz at guiamac.com
Wed Jun 23 04:02:53 PDT 2004
Hi!
I'm kind of newbie to LISP, so sorry if this is a stupid question,
but...
I'm working with OpenMCL (latest version) on Darwin (Mac OS X
10.3.4). I'm trying to use clsql, but for that I need uffi. I'm getting
a lot of problems when clsql tries to load uffi, so I tried to run the
uffi tests. This is the result (sorry for the flood):
? (asdf:operate 'asdf:test-op 'uffi)
; loading system definition from
; /Users/arroz/Documents/LISP/uffi/uffi-tests.asd into #<Package
"ASDF38">
; registering #<SYSTEM UFFI-TESTS #x64B2BFE> as UFFI-TESTS
; $ cd /Users/arroz/Documents/LISP/uffi/tests/; make
BASE=uffi-c-test OBJECT=uffi-c-test.o SOURCE=uffi-c-test.c
SHARED_LIB=uffi-c-test.so sh make.sh
rm uffi-c-test.o
;Compiler warnings for
"/Users/arroz/Documents/LISP/uffi/tests/compress.lisp" :
; Undeclared free variable LENGTH (2 references), in COMPRESS.
; Undeclared free variable LENGTH (2 references), in UNCOMPRESS.
; Unused lexical variable NEWDESTLEN (2 references), in UNCOMPRESS.
; Warning: COMPILE-FILE warned while performing #<COMPILE-OP NIL
#x644347E> on
; #<CL-SOURCE-FILE "compress" #x64442BE>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>
; Warning: COMPILE-FILE failed while performing #<COMPILE-OP NIL
#x644347E> on
; #<CL-SOURCE-FILE "compress" #x64442BE>.
; While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:COMPILE-OP
ASDF:CL-SOURCE-FILE)>
Doing 61 pending tests of 61 tests total.
UFFI-TESTS::STRTOL.1 UFFI-TESTS::STRTOL.2 UFFI-TESTS::STRTOL.3
UFFI-TESTS::STRTOL.4 UFFI-TESTS::ATOI.1 UFFI-TESTS::ATOI.2
UFFI-TESTS::ATOF.3
UFFI-TESTS::GETENV.1 UFFI-TESTS::GETENV.2 UFFI-TESTS::GETHOSTNAME.1
UFFI-TESTS::GETHOSTNAME.2 UFFI-TESTS::GETHOSTNAME.3
UFFI-TESTS::GETHOSTNAME.4
UFFI-TESTS::GETHOSTNAME.5 UFFI-TESTS::UNION.1 UFFI-TESTS::UNION.2
UFFI-TESTS::ARRAY.1 UFFI-TESTS::ARRAY.2 UFFI-TESTS::STRUCTS.1
UFFI-TESTS::CHPTR.1 UFFI-TESTS::CHPTR.2 UFFI-TESTS::CHPTR.3
UFFI-TESTS::CHPTR.4
UFFI-TESTS::CHPTR.5 UFFI-TESTS::CHPTR.6 UFFI-TESTS::TIME.1
UFFI-TESTS::TIME.2
UFFI-TESTS::TIMEOFDAY.1 UFFI-TESTS::TIME.3 UFFI-TESTS::C-TEST.1
UFFI-TESTS::C-TEST.2 UFFI-TESTS::C-TEST.3 UFFI-TESTS::C-TEST.4
UFFI-TESTS::C-TEST.5 UFFI-TESTS::C-TEST.6 UFFI-TESTS::C-TEST.7
UFFI-TESTS::C-TEST.8
Test UFFI-TESTS::COMPRESS.1 failed
Form: (MAP 'LIST #'CHAR-CODE (UFFI-TESTS::COMPRESS ""))
Expected value: (120 156 3 0 0 0 0 1)
Actual value: #<UNBOUND-VARIABLE #x64D8CF6>.
Test UFFI-TESTS::COMPRESS.2 failed
Form: (MAP 'LIST #'CHAR-CODE (UFFI-TESTS::COMPRESS "test"))
Expected value: (120 156 43 73 45 46 1 0 4 93 1 193)
Actual value: #<UNBOUND-VARIABLE #x64D8A4E>.
Test UFFI-TESTS::COMPRESS.3 failed
Form: (MAP 'LIST #'CHAR-CODE (UFFI-TESTS::COMPRESS "test2"))
Expected value: (120 156 43 73 45 46 49 2 0 6 80 1 243)
Actual value: #<UNBOUND-VARIABLE #x64D8846>.
UFFI-TESTS::UNCOMPRESS.1 UFFI-TESTS::UNCOMPRESS.2
UFFI-TESTS::UNCOMPRESS.3
Test UFFI-TESTS::CAST.1 failed
Form: (PROGN (UFFI:WITH-CAST-POINTER (UFFI-TESTS::TEMP
(UFFI-TESTS::CAST-TEST-INT) :INT) (ASSERT (= (UFFI:DEREF-POINTER
UFFI-TESTS::TEMP :INT) 23))) (LET ((UFFI-TESTS::RESULT
(UFFI-TESTS::CAST-TEST-INT))) (UFFI:WITH-CAST-POINTER
(UFFI-TESTS::RESULT2 UFFI-TESTS::RESULT :INT) (ASSERT (=
(UFFI:DEREF-POINTER UFFI-TESTS::RESULT2 :INT) 23)))
(UFFI:WITH-CAST-POINTER (UFFI-TESTS::TEMP UFFI-TESTS::RESULT :INT)
(ASSERT (= (UFFI:DEREF-POINTER UFFI-TESTS::TEMP :INT) 23)))) T)
Expected value: T
Actual value: #<SIMPLE-ERROR #x64D8026>.
Test UFFI-TESTS::CAST.2 failed
Form: (PROGN (UFFI:WITH-CAST-POINTER (UFFI-TESTS::TEMP
(UFFI-TESTS::CAST-TEST-FLOAT) :DOUBLE) (ASSERT (= (UFFI:DEREF-POINTER
UFFI-TESTS::TEMP :DOUBLE) 3.21D0))) (LET ((UFFI-TESTS::RESULT
(UFFI-TESTS::CAST-TEST-FLOAT))) (UFFI:WITH-CAST-POINTER
(UFFI-TESTS::RESULT2 UFFI-TESTS::RESULT :DOUBLE) (ASSERT (=
(UFFI:DEREF-POINTER UFFI-TESTS::RESULT2 :DOUBLE) 3.21D0)))
(UFFI:WITH-CAST-POINTER (UFFI-TESTS::TEMP UFFI-TESTS::RESULT :DOUBLE)
(ASSERT (= (UFFI:DEREF-POINTER UFFI-TESTS::TEMP :DOUBLE) 3.21D0)))) T)
Expected value: T
Actual value: #<SIMPLE-ERROR #x64D7E06>.
Test UFFI-TESTS::FVAR.1 failed
Form: UFFI-TESTS::UCHAR-13
Expected value: 13
Actual value: (ERROR "DEF-FOREIGN-VAR not (yet) defined for ~A"
(LISP-IMPLEMENTATION-TYPE)).
Test UFFI-TESTS::FVAR.2 failed
Form: UFFI-TESTS::SCHAR-NEG-120
Expected value: -120
Actual value: (ERROR "DEF-FOREIGN-VAR not (yet) defined for ~A"
(LISP-IMPLEMENTATION-TYPE)).
Test UFFI-TESTS::FVAR.3 failed
Form: UFFI-TESTS::UWORD-257
Expected value: 257
Actual value: (ERROR "DEF-FOREIGN-VAR not (yet) defined for ~A"
(LISP-IMPLEMENTATION-TYPE)).
Test UFFI-TESTS::FVAR.4 failed
Form: UFFI-TESTS::SWORD-NEG-321
Expected value: -321
Actual value: (ERROR "DEF-FOREIGN-VAR not (yet) defined for ~A"
(LISP-IMPLEMENTATION-TYPE)).
Test UFFI-TESTS::FVAR.5 failed
Form: UFFI-TESTS::UINT-1234567
Expected value: 1234567
Actual value: (ERROR "DEF-FOREIGN-VAR not (yet) defined for ~A"
(LISP-IMPLEMENTATION-TYPE)).
Test UFFI-TESTS::FVAR.6 failed
Form: UFFI-TESTS::SINT-NEG-123456
Expected value: -123456
Actual value: (ERROR "DEF-FOREIGN-VAR not (yet) defined for ~A"
(LISP-IMPLEMENTATION-TYPE)).
Test UFFI-TESTS::FVAR.7 failed
Form: UFFI-TESTS::FLOAT-NEG-4-5
Expected value: -4.5
Actual value: (ERROR "DEF-FOREIGN-VAR not (yet) defined for ~A"
(LISP-IMPLEMENTATION-TYPE)).
Test UFFI-TESTS::FVAR.8 failed
Form: UFFI-TESTS::DOUBLE-3-1
Expected value: 3.1D0
Actual value: (ERROR "DEF-FOREIGN-VAR not (yet) defined for ~A"
(LISP-IMPLEMENTATION-TYPE)).
Test UFFI-TESTS::FVARST.1 failed
Form: UFFI-TESTS::*FVAR-ADDEND*
Expected value: 3
Actual value: (ERROR "DEF-FOREIGN-VAR not (yet) defined for ~A"
(LISP-IMPLEMENTATION-TYPE)).
Test UFFI-TESTS::FVARST.2 failed
Form: (UFFI:GET-SLOT-VALUE UFFI-TESTS::*FVAR-STRUCT*
'UFFI-TESTS::FVAR-STRUCT 'UFFI-TESTS::I)
Expected value: 42
Actual value: #<TYPE-ERROR #x64D6EDE>.
Test UFFI-TESTS::FVARST.3 failed
Form: (= (+ UFFI-TESTS::*FVAR-ADDEND* (UFFI:GET-SLOT-VALUE
UFFI-TESTS::*FVAR-STRUCT* 'UFFI-TESTS::FVAR-STRUCT 'UFFI-TESTS::I))
(UFFI-TESTS::FVAR-STRUCT-INT))
Expected value: T
Actual value: #<TYPE-ERROR #x64D6B36>.
Test UFFI-TESTS::FVARST.4 failed
Form: (UFFI:GET-SLOT-VALUE UFFI-TESTS::*FVAR-STRUCT*
'UFFI-TESTS::FVAR-STRUCT 'UFFI-TESTS::D)
Expected value: 3.2D0
Actual value: #<TYPE-ERROR #x64D6786>.
Test UFFI-TESTS::FVARST.5 failed
Form: (= (UFFI:GET-SLOT-VALUE UFFI-TESTS::*FVAR-STRUCT*
'UFFI-TESTS::FVAR-STRUCT 'UFFI-TESTS::D)
(UFFI-TESTS::FVAR-STRUCT-DOUBLE))
Expected value: T
Actual value: #<TYPE-ERROR #x64D631E>.
Test UFFI-TESTS::FVARST.6 failed
Form: (LET ((UFFI-TESTS::ORIG UFFI-TESTS::*FVAR-ADDEND*)) (INCF
UFFI-TESTS::*FVAR-ADDEND* 3) (PROG1 UFFI-TESTS::*FVAR-ADDEND* (SETF
UFFI-TESTS::*FVAR-ADDEND* UFFI-TESTS::ORIG)))
Expected value: 6
Actual value: #<SIMPLE-ERROR #x64D45D6>.
Test UFFI-TESTS::FVARST.7 failed
Form: (LET ((UFFI-TESTS::ORIG UFFI-TESTS::*FVAR-ADDEND*)) (INCF
UFFI-TESTS::*FVAR-ADDEND* 3) (PROG1 (UFFI-TESTS::FVAR-STRUCT-INT) (SETF
UFFI-TESTS::*FVAR-ADDEND* UFFI-TESTS::ORIG)))
Expected value: 48
Actual value: #<SIMPLE-ERROR #x64D286E>.
Test UFFI-TESTS::FVARST.8 failed
Form: (LET ((UFFI-TESTS::ORIG (UFFI:GET-SLOT-VALUE
UFFI-TESTS::*FVAR-STRUCT* 'UFFI-TESTS::FVAR-STRUCT 'UFFI-TESTS::I)))
(DECF (UFFI:GET-SLOT-VALUE UFFI-TESTS::*FVAR-STRUCT*
'UFFI-TESTS::FVAR-STRUCT 'UFFI-TESTS::I) 10) (PROG1
(UFFI-TESTS::FVAR-STRUCT-INT) (SETF (UFFI:GET-SLOT-VALUE
UFFI-TESTS::*FVAR-STRUCT* 'UFFI-TESTS::FVAR-STRUCT 'UFFI-TESTS::I)
UFFI-TESTS::ORIG)))
Expected value: 35
Actual value: #<SIMPLE-ERROR #x64D185E>.
21 out of 61 total tests failed:
UFFI-TESTS::COMPRESS.1, UFFI-TESTS::COMPRESS.2,
UFFI-TESTS::COMPRESS.3,
UFFI-TESTS::CAST.1, UFFI-TESTS::CAST.2, UFFI-TESTS::FVAR.1,
UFFI-TESTS::FVAR.2, UFFI-TESTS::FVAR.3, UFFI-TESTS::FVAR.4,
UFFI-TESTS::FVAR.5, UFFI-TESTS::FVAR.6, UFFI-TESTS::FVAR.7,
UFFI-TESTS::FVAR.8, UFFI-TESTS::FVARST.1, UFFI-TESTS::FVARST.2,
UFFI-TESTS::FVARST.3, UFFI-TESTS::FVARST.4, UFFI-TESTS::FVARST.5,
UFFI-TESTS::FVARST.6, UFFI-TESTS::FVARST.7, UFFI-TESTS::FVARST.8.
> Error in process listener(1): test-op failed
> While executing: #<STANDARD-METHOD ASDF:PERFORM (ASDF:TEST-OP (EQL
#<SYSTEM "uffi-tests" #x644257E>))>
> Type :POP to abort.
Type :? for other options.
Is this normal? Even being a beta, this should work better, so
where's my problem? Am i doing something wrong?
Yours
Miguel Arroz
"I felt like putting a bullet between
the eyes of every Panda that wouldn't
scr*w to save its species." -- Fight Club
Miguel Arroz - arroz at guiamac.com - http://www.guiamac.com
More information about the Openmcl-devel
mailing list