r2903: *** empty log message ***

[uffi.git] / src-main / aggregates.cl

diff --git a/src-main/aggregates.cl b/src-main/aggregates.cl
index f2df49c86c7e6fe1bb72122510d53c35dcec3627..e4e96f2bfd974afe8ea02cd8a8cfd60ac62102c3 100644 (file)
--- 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.4 2002/09/30 02:45:24 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 (quote ,(convert-from-uffi-type type :type)) :c ,obj ,i)
   )
 
 (defmacro def-union (name &rest fields)
@@ -121,5 +121,3 @@ of the enum-name name, separator-string, and field-name"
   #+cmu
   `(alien:def-alien-type ,name (alien:union ,name ,@(process-struct-fields name fields)))
 )
-
-