Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /contrib/ecl-curl/ecl-curl.lisp [b93d32] .. [d24682] Maximize Restore

  Switch to side-by-side view

--- 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 #+unicode :iso-8859-1 #-unicode :default)))
+     :external-format :iso-8859-1)))
 
 ;;;---------------------------------------------------------------------------
 ;;; URL handling.
@@ -250,9 +250,7 @@
              (progn
                (setf o (open file-name 
                               :direction :output :if-exists :supersede
-                              :external-format
-			      #-unicode :default
-			      #+unicode :latin-1))
+                              :external-format :latin-1))
                (if length
                    (let ((buf (make-array length
                                           :element-type