From 114d2fedbcdb984da2e7534b29823112ab2cc4cc Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Tue, 4 Mar 2014 15:54:31 +0100 Subject: [PATCH] Another try at fixing #40. The babel character-decoding-error condition is exposing both its internal BUFFER and the current OCTETS, and it seems we should refer to the BUFFER in our error reporting... --- src/sources/mysql.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/sources/mysql.lisp b/src/sources/mysql.lisp index fc79666..8e0a30e 100644 --- a/src/sources/mysql.lisp +++ b/src/sources/mysql.lisp @@ -90,7 +90,7 @@ (let ((encoding (babel-encodings:character-coding-error-encoding c)) (position (babel-encodings:character-coding-error-position c)) (character - (aref (babel-encodings:character-decoding-error-octets c) + (aref (babel-encodings:character-coding-error-buffer c) (babel-encodings:character-coding-error-position c)))) (log-message :error "~a: Illegal ~a character starting at position ~a: ~a."