hello, i have a problem with my Hunchentoot application. i would like to test redirect, so i create this function :
(defun handle-redirect () (hunchentoot:redirect "/clappa/index"))
and for debugging :
CL-USER> (setf hunchentoot:*catch-errors-p* nil) NIL
so, in the browser, http://localhost/mytest/redirect i have this :
invalid number of arguments: 1 [Condition of type SB-INT:SIMPLE-PROGRAM-ERROR]
Restarts: 0: [TERMINATE-THREAD] Terminate this thread (#<THREAD "hunchentoot-worker-5" {C7572A9}>)
Backtrace: 0: ((LAMBDA (SWANK-BACKEND::DEBUGGER-LOOP-FN)) #<FUNCTION (LAMBDA #) {ADF96ED}>)
and slime is disconnected. in the buffer *slime-events* i have this :
("invalid number of arguments: 1" " [Condition of type SB-INT:SIMPLE-PROGRAM-ERROR]" nil nil) (("TERMINATE-THREAD" "Terminate this thread (#<THREAD "hunchentoot-worker-5" {C7572A9}>)")) ((0 "((LAMBDA (SWANK-BACKEND::DEBUGGER-LOOP-FN))\n #<FUNCTION (LAMBDA #) {ADF96ED}>)") (1 "(SWANK::CALL-WITH-BINDINGS\n ((*PRINT-PRETTY* . T) (*PRINT-LEVEL* . 4) (*PRINT-LENGTH* . 10)\n (*PRINT-CIRCLE* . T) (*PRINT-READABLY*)\n (*PRINT-PPRINT-DISPATCH* . #<SB-PRETTY:PPRINT-DISPATCH-TABLE {B3E7B59}>)\n (*PRINT-GENSYM* . T) (*PRINT-BASE* . 10) (*PRINT-RADIX*)\n (*PRINT-ARRAY* . T) ...)\n #<FUNCTION (LAMBDA #) {ADF96AD}>)") (2 "(SWANK::DEBUG-IN-EMACS #<SB-INT:SIMPLE-PROGRAM-ERROR {CBC8EF1}>)") (3 "((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))\n #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>\n #<CLOSURE (LAMBDA #) {CBC8F6D}>)") (4 "(SWANK::CALL-WITH-REDIRECTED-IO\n #<SWANK::CONNECTION {B092C31}>\n #<CLOSURE (LAMBDA #) {CBC8F7D}>)") (5 "(SWANK::CALL-WITH-CONNECTION\n #<SWANK::CONNECTION {B092C31}>\n #<CLOSURE (LAMBDA #) {CBC8F6D}>)") (6 "(INVOKE-DEBUGGER #<SB-INT:SIMPLE-PROGRAM-ERROR {CBC8EF1}>)") (7 "(HUNCHENTOOT::MAYBE-INVOKE-DEBUGGER\n #<SB-INT:SIMPLE-PROGRAM-ERROR {CBC8EF1}>)") (8 "(SIGNAL #<SB-INT:SIMPLE-PROGRAM-ERROR {CBC8EF1}>)") (9 "(ERROR SB-INT:SIMPLE-PROGRAM-ERROR)") (10 "(SB-KERNEL::INVALID-ARG-COUNT-ERROR-HANDLER\n #<unavailable argument>\n #.(SB-SYS:INT-SAP #XB6B130AC)\n #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #XB6B12D9C :TYPE (*\n (STRUCT\n SB-VM::OS-CONTEXT-T-STRUCT))>\n (77))") (11 "(SB-KERNEL:INTERNAL-ERROR\n #.(SB-SYS:INT-SAP #XB6B12D9C)\n #<unavailable argument>)") (12 "("foreign function: call_into_lisp")") (13 "("foreign function: funcall2")") (14 "("foreign function: interrupt_internal_error")") (15 "("foreign function: sigtrap_handler")") (16 "(CLAPPA-WEB::HANDLE-ERROR)") (17 "(HUNCHENTOOT::START-OUTPUT NIL)") (18 "(HUNCHENTOOT::PROCESS-REQUEST\n ((:HOST . "82.225.177.13:9998")\n (:USER-AGENT\n . "Mozilla/5.0 (X11; U; Linux i686; fr; rv:1.8.0.7) Gecko/20060830 Firefox/1.5.0.7 (Debian-1.5.dfsg+1.5.0.7-2)")\n (:ACCEPT\n . "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5")\n (:ACCEPT-LANGUAGE . "fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3")\n (:ACCEPT-ENCODING . "gzip,deflate")\n (:ACCEPT-CHARSET . "ISO-8859-1,utf-8;q=0.7,*;q=0.7")\n (:KEEP-ALIVE . "300") (:CONNECTION . "keep-alive")) ..)") (19 "(HUNCHENTOOT::PROCESS-CONNECTION\n #<HUNCH
someone have any idea how can i debug this ? thanks for any help.
On Mon, 15 Jan 2007 19:41:47 +0100, Nicolas Lamirault lam@tuxfamily.org wrote:
(16 "(CLAPPA-WEB::HANDLE-ERROR)")
someone have any idea how can i debug this ?
What does CLAPPA-WEB::HANDLE-ERROR do?
i would like to define a web page when someone try to access an unknown page :
;; (defun handle-error () ;; "Modify the Hunchentoot error dispatcher." ;; (make-web-page #p"error.html"))
and in the init file :
;;(setf hunchentoot:*http-error-handler* 'handle-error)
i remove this code from my web service and i haven't got any error with my redirect test !
But if i reload my web service with my handle-error and i try to open a page that is doesn't exist, my handle-error works and print the error page.
Edi Weitz edi@agharta.de writes:
On Mon, 15 Jan 2007 19:41:47 +0100, Nicolas Lamirault lam@tuxfamily.org wrote:
(16 "(CLAPPA-WEB::HANDLE-ERROR)")
someone have any idea how can i debug this ?
What does CLAPPA-WEB::HANDLE-ERROR do?
On Mon, 15 Jan 2007 20:53:26 +0100, Nicolas Lamirault lam@tuxfamily.org wrote:
i would like to define a web page when someone try to access an unknown page :
;; (defun handle-error () ;; "Modify the Hunchentoot error dispatcher." ;; (make-web-page #p"error.html"))
and in the init file :
;;(setf hunchentoot:*http-error-handler* 'handle-error)
http://weitz.de/hunchentoot/#*http-error-handler*
"[...] a function designator for a function of one argument [...]"
i remove this code from my web service and i haven't got any error with my redirect test !
Sure:
"The function gets called if the responsible handler has set a return code other than +HTTP-OK+ or +HTTP-NOT-MODIFIED+ and *HANDLE-HTTP-ERRORS-P* is true."
thanks a lot ! with your help and your documentation my web app is working well.
Edi Weitz edi@agharta.de writes:
On Mon, 15 Jan 2007 20:53:26 +0100, Nicolas Lamirault lam@tuxfamily.org wrote:
i would like to define a web page when someone try to access an unknown page :
;; (defun handle-error () ;; "Modify the Hunchentoot error dispatcher." ;; (make-web-page #p"error.html"))
and in the init file :
;;(setf hunchentoot:*http-error-handler* 'handle-error)
http://weitz.de/hunchentoot/#*http-error-handler*
"[...] a function designator for a function of one argument [...]"
i remove this code from my web service and i haven't got any error with my redirect test !
Sure:
"The function gets called if the responsible handler has set a return code other than +HTTP-OK+ or +HTTP-NOT-MODIFIED+ and *HANDLE-HTTP-ERRORS-P* is true."