From d3e6bccc2b151fb21563d5adb2cdef6ba77cb320 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 27 Jun 2002 03:42:40 +0000 Subject: [PATCH] r2171: *** empty log message *** --- ChangeLog | 4 ++++ debian/changelog | 12 ++++++++++++ debian/control | 6 +++--- src/objects.cl | 6 +++--- 4 files changed, 22 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0fea614..2364d12 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2002-06-26 Kevin Rosenberg (kevin@rosenberg.net) + + * Fix bug in Lispworks allocate-foreign-object + 2002-04-27 Kevin Rosenberg (kevin@rosenberg.net) * misc files First debian version diff --git a/debian/changelog b/debian/changelog index 319ed6d..ad1f00d 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,15 @@ +cl-uffi (0.4.6-1) unstable; urgency=low + + * New upstream version + + -- Kevin Rosenberg Wed, 26 Jun 2002 21:35:07 -0600 + +cl-uffi (0.4.5-2) unstable; urgency=low + + * Fix Build-Depends-Indep + + -- Kevin Rosenberg Tue, 25 Jun 2002 06:12:19 -0600 + cl-uffi (0.4.5-1) unstable; urgency=low * New upstream version. diff --git a/debian/control b/debian/control index a2d3948..2ae4c4f 100644 --- a/debian/control +++ b/debian/control @@ -2,9 +2,9 @@ Source: cl-uffi Section: devel Priority: optional Maintainer: Kevin M Rosenberg -Uploaders: Adam Di Carlo -Build-Depends-Indep: debhelper (>> 3.0.0), sp, jade, jadetex, tetex-bin, docbook-dsssl -Standards-Version: 3.5.2 +Uploaders: Adam Di Carlo , Barak A. Pearlmutter +Build-Depends-Indep: debhelper (>= 4.0.0) +Standards-Version: 3.5.6 Package: cl-uffi Architecture: all diff --git a/src/objects.cl b/src/objects.cl index 66d57cb..c71aa48 100644 --- a/src/objects.cl +++ b/src/objects.cl @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: objects.cl,v 1.17 2002/04/06 19:53:08 kevin Exp $ +;;;; $Id: objects.cl,v 1.18 2002/06/27 03:42:40 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -27,14 +27,14 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." #+cmu `(alien:make-alien ,(convert-from-uffi-type (eval type) :allocation)) #+lispworks - `(fli:allocate-foreign-object :type ,(convert-from-uffi-type type :allocate)) + `(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate)) #+allegro `(ff:allocate-fobject ,(convert-from-uffi-type type :allocate) :c)) (progn #+cmu `(alien:make-alien ,(convert-from-uffi-type (eval type) :allocation) ,size) #+lispworks - `(fli:allocate-foreign-object :type ,(convert-from-uffi-type type :allocate) :nelems ,size) + `(fli:allocate-foreign-object :type ',(convert-from-uffi-type type :allocate) :nelems ,size) #+allegro `(ff:allocate-fobject '(:array ,(convert-from-uffi-type (eval type) :allocate) ,(eval size)) :c) ) -- 2.34.1