X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-i18n.lisp;h=92aa8d069e7cd1199da5df8c7880195527c47526;hb=4ac8303faedf1ff127dd1610821c9aac0de74fdc;hp=4a6cf67d42bc3a068a961a33994e2455535d031d;hpb=086019e86cb4328a68b228770d3c0ec91c853794;p=clsql.git

diff --git a/tests/test-i18n.lisp b/tests/test-i18n.lisp
index 4a6cf67..92aa8d0 100644
--- a/tests/test-i18n.lisp
+++ b/tests/test-i18n.lisp
@@ -23,7 +23,7 @@
 ;;; UTF-8 for example can handle these easily.
 ;; I show this as a 20char string and 27 bytes in utf-8
 (deftest :basic/i18n/1
- (let ((uffi:*default-external-format* :utf-8))
+ (let ((uffi:*default-foreign-encoding* :utf-8))
    (first (query "SELECT 'Iñtërnâtiônàlizætiøn'"
                  :flatp t :field-names nil)))
  "Iñtërnâtiônàlizætiøn")
@@ -31,7 +31,7 @@
 ;; the z in this one is even stronger
 ;; I show this as a 20char string and 28 bytes in utf-8
 (deftest :basic/i18n/2
- (let ((uffi:*default-external-format* :utf-8))
+ (let ((uffi:*default-foreign-encoding* :utf-8))
    (first (query "SELECT 'Iñtërnâtiônàližætiøn'"
                  :flatp t :field-names nil)))
  "Iñtërnâtiônàližætiøn")