htmlファイル書き込みのcommon lispプログラム

環境
mac OS 10.12.6
SBCL 1.4.1

hello.lisp

(let ((out (open "./hello.html" :direction :output :if-exists :supersede)))
  (write-string
"<!DOCTYPE html>
<html lang=\"ja\">
<head>
  <meta charset=\"utf-8\">
  <title>JavaScriptの練習</title>
</head>
<body>
</body>
</html>"
  out)
   (close out))

2回目があるか分からんけどとりあえず書いてみた

参考
http://d.hatena.ne.jp/patterson/20080902/1228660192
http://www.geocities.jp/m_hiroi/xyzzy_lisp/abclisp07.html