From 18c520ec05e89579c6d4f9400ed31996b7213072 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 16 May 2003 09:14:39 +0000 Subject: [PATCH] r4976: Auto commit for Debian build --- uffi/clsql-uffi.lisp | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/uffi/clsql-uffi.lisp b/uffi/clsql-uffi.lisp index 38e4564..c2c31cc 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.13 2003/05/16 08:51:00 kevin Exp $ +;;;; $Id: clsql-uffi.lisp,v 1.14 2003/05/16 09:14:39 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -184,21 +184,19 @@ (declare (optimize (speed 3) (space 0) (safety 0) (compilation-speed 0)) (type char-ptr-def s)) (let* ((len (strlen s)) - (len4 (floor len 4)) (str (make-string len))) (declare (fixnum len) - (type (simple-array (unsigned-byte 32) (*)) str)) + (type (simple-array (unsigned-byte 8) (*)) str)) + #+ignore (do ((i 0)) ((= i len4)) (declare (fixnum i)) (setf (aref (the (simple-array (unsigned-byte 32) (*)) str) i) (uffi:deref-array s '(:array :unsigned-int) i)) (incf i)) - #+ignore - (do ((i (* 4 len4)) - (str1 str)) + (do ((i 0)) ((= i len)) - (declare (fixnum i) (type (simple-array (unsigned-byte 8) (*)) str1)) + (declare (fixnum i)) (setf (aref str1 i) (uffi:deref-array s '(:array :unsigned-char) i)) (incf i)) str)))) -- 2.34.1