[hunchentoot-devel] Problem with redirect ...

Nicolas Lamirault lam at tuxfamily.org
Mon Jan 15 18:41:47 UTC 2007


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.


-- 
Nicolas Lamirault
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 188 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/tbnl-devel/attachments/20070115/7c655662/attachment.sig>


More information about the Tbnl-devel mailing list