<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
<META NAME="GENERATOR" CONTENT="GtkHTML/3.30.3">
</HEAD>
<BODY>
On Fri, 2011-01-21 at 06:40 +0100, Hans Hübner wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
On Fri, Jan 21, 2011 at 4:29 AM, AVS <<A HREF="mailto:lispercat@gmail.com">lispercat@gmail.com</A>> wrote:
> Thank you for the suggestion, Hans.
> In the mean time could you try one thing? Put some bad code inside
> start-output that will cause an exception (for instance (list a b)
> without a, b defined, or (/ 1 0)). Also (setf *catch-errors-p* nil).
> If things are as they should be it'll trigger the debugger. In my case
> it doesn't which is the cause of the whole issue.
> If it triggers the debugger break for you, it means there is something
> related to sbcl I am using.
The debugger is not triggered, so the bug is real. Having a way to
reproduce it by user code would be helpful nevertheless.
-Hans
</PRE>
</BLOCKQUOTE>
<BR>
Like following?<BR>
<BR>
(defpackage :test<BR>
(:nicknames :test )<BR>
(:use :cl :hunchentoot :cl-who) )<BR>
<BR>
<BR>
(in-package :test)<BR>
<BR>
;;(hunchentoot:start (make-instance 'hunchentoot:acceptor :port 1111 ))<BR>
<BR>
<BR>
(hunchentoot::define-easy-handler (eish :uri "/eish.html"<BR>
:default-request-type :both)<BR>
()<BR>
(cl-who::with-html-output-to-string (*standard-output* nil :indent t) <BR>
(cl-who::str "Hello World XXX")))<BR>
<BR>
<BR>
(defmacro with-debugging (&body body)<BR>
;; Using this as debugging tool because hunchentoot<BR>
;; swallows all errors here.<BR>
`(handler-bind ((error #'invoke-debugger))<BR>
,@body))<BR>
<BR>
(defclass xxx ()<BR>
((ccc)) )<BR>
<BR>
<BR>
(defmethod handle-request :before ((*acceptor* hunchentoot::acceptor) (*request* hunchentoot::request))<BR>
<BR>
; (with-debugging <BR>
(slot-value (make-instance 'xxx) 'xxx) <BR>
;)<BR>
)<BR>
<BR>
Harag
</BODY>
</HTML>