uffi:def-struct on openmcl

in uffi 1.4.24 the def-struct macro doesn't define a foreign type as
it should.

This (in aggregates.lisp):

(defmacro def-struct (name &rest fields)
  ...
  #+openmcl
  `(ccl::def-foreign-type
    nil
    (:struct ,name ,@(process-struct-fields name fields)))
  )

should be:

(defmacro def-struct (name &rest fields)
  #+openmcl
  `(ccl::def-foreign-type
    ,name
    (:struct ,name ,@(process-struct-fields name fields)))
  )

-- 
-Marco
Ring the bells that still can ring.
Forget your perfect offering.
There is a crack in everything.
That's how the light gets in.
     -Leonard Cohen