>>310
ちょろっとさわってみたところ、以下の修正でウチの環境では天気が取得できました

$ diff weather-forecast.l~org weather-forecast.l
83c83
< (defvar *weather-forecast-host* "www.imoc.co.jp")
---
> (defvar *weather-forecast-host* "www.imocwx.com")
165c165
<       (format stream "GET ~A  HTTP/1.0\n\n" file)
---
>       (format stream "GET ~A HTTP/1.0\n\n" file)