Weird way of setting up dispatch

Hello again and happy new year!

I'm trying to figure out if it was safe to append a folder dispatcher for 
my own resources and came across this funny code:

(setf *dispatch-table*
      (append (list (lambda (request)
		      (funcall (create-folder-dispatcher-and-handler "/
pub/" *public-files-path*)
			       request))
		    (create-prefix-dispatcher "/" 'handle-client-request))
	      *dispatch-table*))

It would be clearer if it was something like:

(push (create-folder-dispatcher-and-handler "/pub" *public-files-path*) 
      *dispatch-table*)
(push (create-prefix-dispatcher "/" 'handle-client-request) 
      *dispatch-table*)

At the very least, I am unsure of why the code creates a folder 
dispatcher on every single request.

--

-- 
Sohail Somani
http://uint32t.blogspot.com

--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups "weblocks" group.