2010/8/23 Gustavo <gugamil...@gmail.com>:
> Those don't fail, but:
>
> UFFI-TESTS> (let ((native-string "test string"))
>       (uffi:with-foreign-string (fs native-string)
>         (ensure-char-character
>          (deref-pointer fs :char))))
> #\t
> UFFI-TESTS> (let ((native-string "test string"))
>       (uffi:with-foreign-string (fs native-string)
>         (deref-pointer fs :char)))
> 116
>
> The latter would return #\t in uffi-compat.

Thanks for investigating this issue. I've applied your fix.

Cheers,

-- 
Luís Oliveira
http://r42.eu/~luis/

_______________________________________________
cffi-devel mailing list
cffi-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel

Reply via email to