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