[Bese-devel] request dispatching

[Marco Baringer]

"Attila Lendvai" <attila.lendvai at gmail.com> writes:

>     Wouldn't that mean that this breaks every existing application?
>
> i'm a newcomer to lisp, and one of the most positive aspects of this community
> is that people tend to not care that much about backward compatibility...

i definetly fall into the 'backwards compatibilty comes way after
clarity, efficency and maliablitiy' camp. however this does not mean
we should gratutiously cause pain to people who've learnt ucw. 

hence:

(defmacro defentry-point (url
                          (&key (application '*default-application*))
                          request-params 
                          &body body)
  (rebinding (application)
  `(setf (application.dispatcher ,application)
         (append (application.dispatcher ,application)
                 (list (url-dispatcher ',url
                         (with-request-params ,request-params
                           , at body)))))))

the other most positive aspect of this comunity is that backwrads
compatability is so damn easy :)

-- 
-Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen