mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

ECL-CDB and ECL-CURL still used UTF-8 when not having unicode

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2012-02-06 17:01:57 +01:00
parent 758f8cccce
commit fef47c709c
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
contrib/ecl-curl/ecl-curl.lisp
View file

@ -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