From b93d32a1a257cbb20a097f0b30ac5711eeaf89b2 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 5 Feb 2012 21:06:48 +0100
Subject: [PATCH] In ecl-curl.lisp, work even when Unicode is not available.

---
 contrib/ecl-curl/ecl-curl.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/contrib/ecl-curl/ecl-curl.lisp b/contrib/ecl-curl/ecl-curl.lisp
index 1331bfb97..b458f3242 100644
--- a/contrib/ecl-curl/ecl-curl.lisp
+++ b/contrib/ecl-curl/ecl-curl.lisp
@@ -111,7 +111,7 @@
      :input t 
      :output t
      :buffering :full
-     :external-format :iso-8859-1)))
+     :external-format #+unicode :iso-8859-1 #-unicode :default)))
 
 ;;;---------------------------------------------------------------------------
 ;;; URL handling.
@@ -250,7 +250,9 @@
              (progn
                (setf o (open file-name 
                               :direction :output :if-exists :supersede
-                              :external-format :latin-1))
+                              :external-format
+			      #-unicode :default
+			      #+unicode :latin-1))
                (if length
                    (let ((buf (make-array length
                                           :element-type