From fae2d9a95dff1fa852b037df882341234c68f979 Mon Sep 17 00:00:00 2001
From: cox <cox>
Date: Sat, 26 Feb 2000 01:09:59 +0000
Subject: [PATCH] see ChangeLog.n: 2000-02-25  Charles A. Cox  <cox@delta>

---
 ChangeLog.n               | 5 +++++
 utils/lisp-utilities.lisp | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog.n b/ChangeLog.n
index 798733aa..475374ba 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -10,6 +10,11 @@ If there are user-visible changes in this commit, then list the
 <standard changelog date stamp>
 	* <changes go here...>
 
+*******************************************************************************
+2000-02-25  Charles A. Cox  <cox@delta>
+
+	* utils/lisp-utilities.lisp: add ':strings-convert nil' to _free def.
+
 *******************************************************************************
 2000-01-31  Charles A. Cox  <cox@freezer>
 
diff --git a/utils/lisp-utilities.lisp b/utils/lisp-utilities.lisp
index 71170757..dc40ddf6 100644
--- a/utils/lisp-utilities.lisp
+++ b/utils/lisp-utilities.lisp
@@ -16,7 +16,7 @@
 ;; Commercial Software developed at private expense as specified in
 ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable.
 ;;
-;; $Id: lisp-utilities.lisp,v 1.41 1999/07/19 22:25:21 layer Exp $
+;; $Id: lisp-utilities.lisp,v 1.42 2000/02/26 01:09:59 cox Exp $
 
 (in-package :clim-utils)
 
@@ -1597,6 +1597,7 @@
   (ff:def-foreign-call (_free "free")
       ((data (* :char)))
     :call-direct t
+    :strings-convert nil		; cac 25feb00
     :arg-checking nil
     :returning :void))
 
-- 
GitLab