This is the mail archive of the
kawa@sources.redhat.com
mailing list for the Kawa project.
broken (field x 'length) testcase
- From: Chris Dean <ctdean at sokitomi dot com>
- To: "Hoehle, Joerg-Cyril" <Joerg-Cyril dot Hoehle at t-systems dot com>
- Cc: kawa at sources dot redhat dot com
- Date: Tue, 09 Dec 2003 10:57:42 -0800
- Subject: broken (field x 'length) testcase
- References: <9F8582E37B2EE5498E76392AEDDCD3FE087DE470@G8PQD.blf01.telekom.de>
> (cmp-bytes (Base64:decode "ABCD") (Base64:decode "ABCD") "CRI")
What's Base64 ?
> (define (cmp-bytes b1 ;expected value
> b2 ;value from DB
> field
> )
> (write (list b1 b2))(newline)
> (let ((l1 (field b1 'length)))
> ;;(write l1)
> (values)))
There is a bug, but I believe it's in the code quoted above.
Try either
(define (cmp-bytes b1 ;expected value
b2 ;value from DB
field-value
)
(write (list b1 b2))(newline)
(let ((l1 (field b1 'length)))
;;(write l1)
(values)))
or
(cmp-bytes (Base64:decode "ABCD")
(Base64:decode "ABCD")
(lambda (x y) "CRI"))
Regards,
Chris Dean