[Pass actual pathname as static-root directory
clinton@unknownlamer.org**20090504201614
 Ignore-this: 749d240750b0e99c65e2cf053753c370
 No reason to have to parse the namestring on every file serve...
] hunk ./src/site-control.lisp 74
-  (let ((data-root (data-root site)))
+  (let* ((data-root (data-root site))
+	 (static-root (merge-pathnames "wwwroot/" data-root)))
hunk ./src/site-control.lisp 83
-					. ,(format nil "~A~A"
-						   data-root "wwwroot/")))
+					. ,static-root))
hunk ./src/site-control.lisp 94
-					. ,(format nil "~A~A"
-						   data-root "wwwroot/")))))))))
+					. ,static-root))))))))