Use from-homedir function

website.lisp

@@ -89,7 +89,7 @@
 <tr><td></td><th align=\"left\">Index Entry</th></tr>~%"))
 
 (defun build-index ()
-  (let ((quickref-dir (merge-pathnames "quickref/" (user-homedir-pathname))))
+  (let ((quickref-dir (from-homedir "quickref/")))
     (with-open-file (file (merge-pathnames "index.html" quickref-dir)
 			  :direction :output
 			  :if-exists :supersede