uffi/src aggregates.lisp,1.4,1.5

Update of /pubcvs/uffi/src
In directory boa.b9.com:/tmp/cvs-serv29382/src

Modified Files:
	aggregates.lisp 
Log Message:
another allegro bug fix


Index: aggregates.lisp
===================================================================
RCS file: /pubcvs/uffi/src/aggregates.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** aggregates.lisp	16 Oct 2002 11:56:43 -0000	1.4
--- aggregates.lisp	23 Nov 2002 19:07:11 -0000	1.5
***************
*** 164,168 ****
    #+sbcl  `(sb-alien:deref ,obj ,i)
    #+lispworks `(fli:dereference ,obj :index ,i)
!   #+allegro `(ff:fslot-value-typed (quote ,(convert-from-uffi-type type :type)) :c ,obj ,i)
    #+mcl
    (let* ((array-type (array-type type))
--- 164,168 ----
    #+sbcl  `(sb-alien:deref ,obj ,i)
    #+lispworks `(fli:dereference ,obj :index ,i)
!   #+allegro `(ff:fslot-value-typed (quote (convert-from-uffi-type ,type :type)) :c ,obj ,i)
    #+mcl
    (let* ((array-type (array-type type))