X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src-main%2Faggregates.cl;fp=src-main%2Faggregates.cl;h=6a912cecca9529edb44464de8d2065baac912222;hb=bb58879f51d870e04e6f01b3ba2c4906703079e0;hp=f2df49c86c7e6fe1bb72122510d53c35dcec3627;hpb=687abce42637479af041f074ebd887c6269f45b9;p=uffi.git

diff --git a/src-main/aggregates.cl b/src-main/aggregates.cl
index f2df49c..6a912ce 100644
--- a/src-main/aggregates.cl
+++ b/src-main/aggregates.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: aggregates.cl,v 1.1 2002/09/16 17:54:30 kevin Exp $
+;;;; $Id: aggregates.cl,v 1.2 2002/09/20 06:03:36 kevin Exp $
 ;;;;
 ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -110,7 +110,7 @@ of the enum-name name, separator-string, and field-name"
   #+(or lispworks cmu) (declare (ignore type))
   #+cmu  `(alien:deref ,obj ,i)
   #+lispworks `(fli:dereference ,obj :index ,i)
-  #+allegro `(ff:fslot-value-typed ,type :c ,obj ,i)
+  #+allegro `(ff:fslot-value-typed ,(convert-from-uffi-type type :type) :c ,obj ,i)
   )
 
 (defmacro def-union (name &rest fields)