Always put index file in treated directory

website.lisp

@@ -101,8 +101,8 @@
 <table class=\"index-cp\" border=\"0\">
 <tr><td></td><th align=\"left\">Index Entry</th></tr>~%"))
 
-(defun build-index (path file-path)
-  (with-open-file (file file-path
+(defun build-index (path)
+  (with-open-file (file (merge-pathnames "index.html" (truename path))
 			:direction :output
 			:if-exists :supersede
 			:if-does-not-exist :create)