Commit 86829c94 authored by Antoine Martin's avatar Antoine Martin
Browse files

Use from-homedir function

parent e1adf7e6
...@@ -89,7 +89,7 @@ ...@@ -89,7 +89,7 @@
<tr><td></td><th align=\"left\">Index Entry</th></tr>~%")) <tr><td></td><th align=\"left\">Index Entry</th></tr>~%"))
(defun build-index () (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) (with-open-file (file (merge-pathnames "index.html" quickref-dir)
:direction :output :direction :output
:if-exists :supersede :if-exists :supersede
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment