From 6c6ce0383c021a161278435ba068f1e291191bac Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 28 Mar 2003 19:58:18 +0000 Subject: [PATCH] r4271: Auto commit for Debian build --- debian/changelog | 6 ++++++ src/strings.lisp | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/debian/changelog b/debian/changelog index 656f996..00e03ce 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-uffi (1.2.10-1) unstable; urgency=low + + * Fix allegro free-cstring bug + + -- Kevin M. Rosenberg Fri, 28 Mar 2003 12:58:08 -0700 + cl-uffi (1.2.9-1) unstable; urgency=low * change ccl:%put-cstring to ccl::%put-cstring for openmcl diff --git a/src/strings.lisp b/src/strings.lisp index 8d768e6..28ff372 100644 --- a/src/strings.lisp +++ b/src/strings.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: strings.lisp,v 1.6 2003/03/12 21:13:18 kevin Exp $ +;;;; $Id: strings.lisp,v 1.7 2003/03/28 19:58:18 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -62,7 +62,7 @@ that LW/CMU automatically converts strings from c-calls." (defmacro free-cstring (obj) #+(or cmu sbcl scl lispworks) (declare (ignore obj)) #+allegro - `(unless (zerop obj) + `(unless (zerop ,obj) (ff:free-fobject ,obj)) #+mcl `(unless (ccl:%null-ptr-p ,obj) -- 2.34.1