通过重新绑定 symbol-macro *default-file-encoding*,指定UTF8编码下载指定页:
(letf ((*default-file-encoding* charset:utf-8))
(EXT:with-http-input (in "http://www.sina.com") ; GET
(loop while (listen in)
collect (read-line in))))
通过重新绑定 symbol-macro *default-file-encoding*,指定UTF8编码下载指定页:
(letf ((*default-file-encoding* charset:utf-8))
(EXT:with-http-input (in "http://www.sina.com") ; GET
(loop while (listen in)
collect (read-line in))))