Hello again Faruk, I think the symbol *session* is not bound immediately after calling the function start-session, but the function returns it; this code works:
(defun f () (let ((username (hunchentoot:parameter "username")) (session (hunchentoot:start-session))) (format t "session:~s~%" session) (setf (hunchentoot:session-value 'sessu session) username) (hunchentoot:session-value 'sessu session)))
On Thursday, March 20, 2014 3:29 PM, Faruk S. Can farukscan@gmail.com wrote:
and with page.html: <html> <body> <form action="/l" method="get"> <input type="text" name="username" </input> <input type="submit" </input> </form> </body> </html>
2014-03-20 23:08 GMT+02:00 Faruk S. Can farukscan@gmail.com:
no offense.
I need help on hunchentoot session topic. whether I am doing a very simple mistake, or there is an issue. I do not need do not send your code and beg for help to solicit help as somebody has told days before this is very basically should work as I am expecting. It is very simple. to ensure installs are done:
(ql:quickload '(:hunchentoot))
(hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 5050))
(defun f () (let ((username (hunchentoot:parameter "username"))) (hunchentoot:start-session) (setf (hunchentoot:session-value 'sessu) username) (hunchentoot:session-value 'sessu)))
(push (hunchentoot:create-prefix-dispatcher "/l" 'f) hunchentoot:*dispatch-table*)
(push (hunchentoot:create-static-file-dispatcher-and-handler "/" "/Users/faruk/desktop/page.html") hunchentoot:*dispatch-table*)