+cl-uffi (1.2.10-1) unstable; urgency=low
+
+ * Fix allegro free-cstring bug
+
+ -- Kevin M. Rosenberg <kmr@debian.org> 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
;;;; 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
;;;;
(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)