;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: aggregates.lisp,v 1.8 2003/08/13 18:53:42 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
#+(or lispworks cmu sbcl scl) (declare (ignore type))
#+(or cmu scl) `(alien:deref ,obj ,i)
#+sbcl `(sb-alien:deref ,obj ,i)
- #+lispworks `(fli:dereference ,obj :index ,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
(let* ((array-type (array-type type))