From 18ce6a261d0abb95a8ff8196934dae746cda8775 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 26 Aug 2003 13:29:31 +0000 Subject: [PATCH] r5559: Automatic commit for debian_version_1_3_4-1 --- debian/changelog | 8 +++++++- src/aggregates.lisp | 4 ++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/debian/changelog b/debian/changelog index 53dd391..9102acc 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,8 +1,14 @@ +cl-uffi (1.3.4-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Tue, 26 Aug 2003 07:29:19 -0600 + cl-uffi (1.3.3-1) unstable; urgency=low * Add gettimeofday to tests - -- Kevin M. Rosenberg Sat, 23 Aug 2003 06:36:28 -0600 + -- Kevin M. Rosenberg Tue, 26 Aug 2003 07:29:07 -0600 cl-uffi (1.3.2-1) unstable; urgency=low diff --git a/src/aggregates.lisp b/src/aggregates.lisp index ae86bbe..cea43e6 100644 --- a/src/aggregates.lisp +++ b/src/aggregates.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: aggregates.lisp,v 1.8 2003/08/13 18:53:42 kevin Exp $ +;;;; $Id: aggregates.lisp,v 1.9 2003/08/26 13:29:31 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -162,7 +162,7 @@ of the enum-name name, separator-string, and field-name" #+(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)) -- 2.34.1