uffi/src aggregates.lisp,1.8,1.9

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

Modified Files:
	aggregates.lisp 
Log Message:
Automatic commit for debian_version_1_3_4-1

Index: aggregates.lisp
===================================================================
RCS file: /pubcvs/uffi/src/aggregates.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** aggregates.lisp	13 Aug 2003 18:53:42 -0000	1.8
--- aggregates.lisp	26 Aug 2003 13:29:31 -0000	1.9
***************
*** 163,167 ****
    #+(or cmu scl)  `(alien:deref ,obj ,i)
    #+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
--- 163,167 ----
    #+(or cmu scl)  `(alien:deref ,obj ,i)
    #+sbcl  `(sb-alien:deref ,obj ,i)
!   #+lispworks `(fli:dereference ,obj :index ,i :copy-foreign-object nil)
    #+allegro `(ff:fslot-value-typed (quote ,(convert-from-uffi-type type :type)) :c ,obj ,i)
    #+mcl