I'm stuck at the simplest test of this basic server:

(de tst ()
   (httpHead "text/plain; charset=utf-8")
   (put '*Post "key" "value")
   (ht:Out T (print (getl '*Post) (or (get '*Post "key") "Nothing"))) )

I post "key" => "value" to this function too.

The output is:

(("value" . "key") ("value" . "key")) "value"

I don't get it, isn't the put statement before ht:Out supposed to replace
"value" under "key"?

I change tst to:

(de tst ()
   (httpHead "text/plain; charset=utf-8")
   (ht:Out T (print (getl '*Post) (or (get '*Post "key") "Nothing"))) )

And get (("value" . "key")) "Nothing" back.

What is going on?



On Thu, Jul 7, 2011 at 1:24 PM, Alexander Burger <a...@software-lab.de>wrote:

> Hi Henrik,
>
> > How about this?:
>
> Good, this looks pretty minimal.
>
>
> > (undef 'http)
> >
> > (de http (S)
> >    (use (*Post L @U @H @X)
> >       (off *Post *Port% *ContLen *Cookies "*Cookies" "*HtSet")
>
> I think you can safely remove '*Port%', but that's not critical. It is
> only used in the form GUI to detect port changes, to avoid safety
> hiccups in XMLHttpRequests.
>
> Cheers,
> - Alex
> --
> UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
>

Reply via email to