Make sure the log directory exists before writing

quickref.lisp

@@ -46,6 +46,7 @@
     (print (get-primary-system-name (ql-dist:name release)))))
 
 (defun build-releases ()
+  (clean-or-create (from-homedir "declt-logfiles/"))
   (qlmapper:map-releases
    (merge-pathnames "map-declt.lisp"(asdf:system-source-directory "quickref"))))