On Mon, Jan 5, 2009 at 1:02 AM, John Fremlin <j...@msi.co.jp> wrote: > @@ -263,12 +263,12 @@ SIZE-VAR is supplied, it will be bound to SIZE during > BODY." > :unsigned-long) 'integer) > (:float 'single-float) > (:double 'double-float) > - (:foreign-address :foreign-address) > + (:foreign-address 'integer) > (:void 'null))))
This change is somewhat unexpected, is it really necessary? > (defun foreign-allegro-type (type) > (if (eq type :foreign-address) > - nil > + :unsigned-nat > type)) > > (defun allegro-type-pair (type) Does it work if you use :FOREIGN-ADDRESS instead of :UNSIGNED-NAT in FOREIGN-ALLEGRO-TYPE? I'm asking these questions because I suspect both changes break with older versions of Allegro but I can't test it since the express edition 7.0 is no longer available. It's probably not a big deal but I'd like to at least try to maintain compatibility. -- Luís Oliveira http://student.dei.uc.pt/~lmoliv/ _______________________________________________ cffi-devel mailing list cffi-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
