r2892: *** empty log message ***

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

diff --git a/src-main/aggregates.cl b/src-main/aggregates.cl
index 6a912cecca9529edb44464de8d2065baac912222..5e4e132840334d2ce91af7899a8077e6fbe9ab91 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.2 2002/09/20 06:03:36 kevin Exp $
+;;;; $Id: aggregates.cl,v 1.3 2002/09/30 01:57:32 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 ,(convert-from-uffi-type type :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)