From 19817851c47371bdf5687e9e7d6f8ce3d7dc7f87 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 15 May 2003 07:47:01 +0000 Subject: [PATCH 1/1] r4950: *** empty log message *** --- debian/changelog | 2 +- uffi/clsql-uffi.lisp | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/debian/changelog b/debian/changelog index 3db57f9..419c16d 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,6 +1,6 @@ cl-sql (1.6.0-1) unstable; urgency=low - * Optimize string conversion for mysql string fields at the expense + * Optimize native string conversion at the expense of ignoring locales on Allegro and Lispworks. -- Kevin M. Rosenberg Thu, 15 May 2003 01:32:52 -0600 diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp index 3c4c818..aa75cf1 100644 --- a/uffi/clsql-uffi.lisp +++ b/uffi/clsql-uffi.lisp @@ -7,7 +7,7 @@ ;;;; Programmers: Kevin M. Rosenberg ;;;; Date Started: Mar 2002 ;;;; -;;;; $Id: clsql-uffi.lisp,v 1.7 2003/05/15 07:39:42 kevin Exp $ +;;;; $Id: clsql-uffi.lisp,v 1.8 2003/05/15 07:45:17 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -120,8 +120,10 @@ low32 (make-64-bit-integer high32 low32))))) (t + ;; Choose optimized routine + #-(or cmu sbcl) (native-to-string char-ptr) - #+ignore + #+(or cmu sbcl) (uffi:convert-from-foreign-string char-ptr))))))) -- 2.34.1