r2171: *** empty log message ***

diff --git a/ChangeLog b/ChangeLog
index 0fea61403309735e595c20cf34e02068c844dad4..2364d12e44ee648974d2cf7cb4cf3273eebb0f36 100644 (file)
--- 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 319ed6d300bb08d70b1bafe5349b4f8e4bc4a73e..ad1f00d34e922a91646df908c8325161559d33c6 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,15 @@
+cl-uffi (0.4.6-1) unstable; urgency=low
+
+  * New upstream version
+
+ -- Kevin Rosenberg <kevin@cheetah.med-info.com>  Wed, 26 Jun 2002 21:35:07 -0600
+
+cl-uffi (0.4.5-2) unstable; urgency=low
+
+  * Fix Build-Depends-Indep
+
+ -- Kevin Rosenberg <kevin@cheetah.med-info.com>  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 a2d394888f72754f1eac114d594c743adce4c149..2ae4c4fc8d9f7eff246749e2895ff8cd8125d7a5 100644 (file)
--- a/debian/control
+++ b/debian/control
@@ -2,9 +2,9 @@ Source: cl-uffi
 Section: devel
 Priority: optional
 Maintainer: Kevin M Rosenberg <kevin@rosenberg.net>
-Uploaders: Adam Di Carlo <aph@debian.org>
-Build-Depends-Indep: debhelper (>> 3.0.0), sp, jade, jadetex, tetex-bin, docbook-dsssl
-Standards-Version: 3.5.2
+Uploaders: Adam Di Carlo <aph@debian.org>, Barak A. Pearlmutter <bap@debian.org>
+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 66d57cba64729afca7ba14b0dff6689409651995..c71aa48598f914c0e8c81c88a045f23803cc1ddb 100644 (file)
--- 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)
       )