[Sbcl-devel] sb-grovel and alien-type definition

[Andreas F. <as...@vo...>]

Hi,

sb-grovel couldn't generate alien type definitions, so that

(define-call "readdir" (* sb-posix::dirent)
  ;; readdir() has the worst error convention in the world.  It's just
  ;; too painful to support.  (return is NULL _and_ errno "unchanged"
  ;; is not an error, it's EOF).
  not
  (dir (* t)))

in sb-posix was a no-no.

The attached patch enables that. It defines a dummy structure with
appropriate fields of type (array char <groveled-length>). Maybe this is
not optimal with integer fields, but it works for now.

I hope you're not too appalled by the massive LOOP construct; it took a
while to construct that one (-: