[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/test/script.lisp

[BKNR Commits]

Revision: 4237
Author: edi
URL: http://bknr.net/trac/changeset/4237

Replace literal characters with portable code

U   trunk/thirdparty/hunchentoot/test/script.lisp

Modified: trunk/thirdparty/hunchentoot/test/script.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/test/script.lisp	2009-02-10 16:37:27 UTC (rev 4236)
+++ trunk/thirdparty/hunchentoot/test/script.lisp	2009-02-10 17:35:21 UTC (rev 4237)
@@ -64,7 +64,7 @@
 
     (format t "Test POST parameters with foreign characters (Latin-1)~%")
     (http-request "parameter_latin1_post.html"
-                  :method :post :parameters (list (cons "foo" (format nil "H~Chner" #\Latin_Small_Letter_U_With_Diaeresis))))
+                  :method :post :parameters (list (cons "foo" (format nil "H~Chner" #.(code-char 252)))))
     (http-assert-header :content-type "text/html; charset=ISO-8859-1")
     (http-assert-body "(72 252 104 110 101 114)")
     (http-assert-body ""Hühner"")
@@ -79,7 +79,7 @@
     (http-request "parameter_utf8_post.html"
                   :method :post
                   :external-format-out :utf-8
-                  :parameters (list (cons "foo" (format nil "H~Chner" #\Latin_Small_Letter_U_With_Diaeresis))))
+                  :parameters (list (cons "foo" (format nil "H~Chner" #.(code-char 252)))))
     (http-assert-header :content-type "text/html; charset=UTF-8")
     (http-assert-body "(72 252 104 110 101 114)")
     (http-assert-body ""Hühner"")