Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/contrib/asdf-install
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5024/contrib/asdf-install
Fix for a couple of Unicode-related bugs.
... KLUDGE around the non-existence of proper external-format
support in GET-DESCRIPTOR-FOR / RUN-PROGRAM;
... hideous hack in asdf-install to allow downloads of binary data
through character streams.
RCS file: /cvsroot/sbcl/sbcl/contrib/asdf-install/installer.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- installer.lisp 20 Feb 2004 18:15:19 -0000 1.9
+++ installer.lisp 3 Dec 2004 12:49:47 -0000 1.10
@@ -109,7 +109,7 @@
s (car (host-ent-addresses (get-host-by-name (url-host (or *proxy* url)))))
(url-port (or *proxy* url)))
- (let ((stream (socket-make-stream s :input t :output t :buffering :full)))
+ (let ((stream (socket-make-stream s :input t :output t :buffering :full :external-format :iso-8859-1)))
;; we are exceedingly unportable about proper line-endings here.
;; Anyone wishing to run this under non-SBCL should take especial care
(format stream "GET ~A HTTP/1.0~%Host: ~A~%Cookie: CCLAN-SITE=~A~%~%"
@@ -150,11 +150,11 @@
(format t "Downloading ~A bytes from ~A ..."
(if length length "some unknown number of") url)
- (with-open-file (o file-name :direction :output)
+ (with-open-file (o file-name :direction :output :external-format :iso-8859-1)
(let ((buf (make-array length
- (stream-element-type stream) )))
+ (stream-element-type stream))))
(read-sequence buf stream)
(write-sequence buf o))
(sb-executable:copy-stream stream o))))
Sign up for the SourceForge newsletter: