Hi all:
I'm using weblocks on SBCL starting from a core image (save-lisp-and-
die). I'm not packaging weblocks so the function weblocks-dispatcher
(src/server.lisp) calls a hunchentoot function called create-folder-
dispatcher-and-handler with physical-folder set to #p"./pub":
(let ((virtual-folder "/weblocks-common/pub/")
(physical-folder (aif (ignore-errors (probe-file
(compute-public-files-path :weblocks)))
it
#p"./pub")))
When create-folder-dispatcher-and-handler verifies base-path
(previously known as physical-folder) it fails because it is not
terminated with "/". This is the patch that fixes that:
diff -r 3e658fdfc285 src/server.lisp
--- a/src/server.lisp Tue Nov 09 21:56:00 2010 +0100
+++ b/src/server.lisp Mon Nov 15 14:08:40 2010 +0100
@@ -116,7 +116,7 @@
(let ((virtual-folder "/weblocks-common/pub/")
(physical-folder (aif (ignore-errors (probe-file
(compute-public-files-path :weblocks)))
it
- #p"./pub")))
+ #p"./pub/")))
(unless *weblocks-global-debug*
(send-cache-rules 100000)
(setf content-type
Greets.
--
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/weblocks?hl=en.
