mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-05 12:00:32 -08:00
Code Issues Projects Releases Packages Wiki Activity

In ecl-curl.lisp, work even when Unicode is not available.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-02-05 21:06:48 +01:00
parent e3af03e02f
commit b93d32a1a2
1 changed files with 4 additions and 2 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