; compiling file "/home/dan/src/ucw_dev/src/rerl/request-loop-error.lisp" (written 20 JUN 2006 11:12:51 PM):
; compiling (IN-PACKAGE :IT.BESE.UCW)
; compiling (DEFSTRUCT BACKTRACE-FRAME ...)
; compiling (DEFUN COLLECT-BACKTRACE ...)
; compiling (DEFGENERIC HANDLE-REQUEST-ERROR ...)
; compiling (DEFMETHOD HANDLE-REQUEST-ERROR ...)
; compiling (DEFMETHOD HANDLE-REQUEST-ERROR ...)
; compiling (DEFMACRO WITH-ERROR-PAGE ...)
; compiling (DEFMETHOD HANDLE-REQUEST-ERROR ...)
; file: /home/dan/src/ucw_dev/src/rerl/request-loop-error.lisp
; in: DEFMETHOD HANDLE-REQUEST-ERROR (ERROR T)
;     (DEFMETHOD IT.BESE.UCW::HANDLE-REQUEST-ERROR
;              ((ERROR ERROR) IT.BESE.UCW::BACKTRACE)
;              (IF
;               (AND IT.BESE.UCW:*CONTEXT*
;                    (IT.BESE.UCW:CONTEXT.SESSION IT.BESE.UCW:*CONTEXT*))
;               (PROGN
;                (SETF (IT.BESE.UCW::FRAME.WINDOW-COMPONENT #)
;                        (MAKE-INSTANCE 'IT.BESE.UCW:ERROR-COMPONENT
;                                       :CONDITION
;                                       ERROR
;                                       :MESSAGE
;                                       #
;                                       :BACKTRACE
;                                       IT.BESE.UCW::BACKTRACE))
;                (IT.BESE.YACLML:WITH-YACLML-STREAM (IT.BESE.UCW:HTML-STREAM #)
;                                                   (IT.BESE.UCW:RENDER #)))
;               (IT.BESE.UCW::WITH-ERROR-PAGE
;                (:TITLE "An internal server error has occured.")
;                (IT.BESE.YACLML.TAGS:P "An internal server error has occured.")
;                (BLOCK IT.BESE.UCW::WALK-BACKTRACK (HANDLER-BIND # #)))))
; 
; caught ERROR:
;   (during macroexpansion of (DEFMETHOD HANDLE-REQUEST-ERROR ...))
;   Unrecognized attribute (IT.BESE.YACLML.TAGS:HEAD
;                           (IT.BESE.YACLML.TAGS:TITLE #:TITLE-170)).

; compiling (DEFMETHOD HANDLE-REQUEST-ERROR ...)
; file: /home/dan/src/ucw_dev/src/rerl/request-loop-error.lisp
; in: DEFMETHOD HANDLE-REQUEST-ERROR (RERL-ERROR T)
;     (DEFMETHOD IT.BESE.UCW::HANDLE-REQUEST-ERROR
;              ((IT.BESE.UCW::ERR IT.BESE.UCW::RERL-ERROR)
;               IT.BESE.UCW::BACKTRACE)
;              (DECLARE (IGNORE IT.BESE.UCW::BACKTRACE))
;              (IT.BESE.UCW::WITH-ERROR-PAGE
;               (:TITLE "An internal server error has occured.")
;               (IT.BESE.YACLML.TAGS:P
;                "Sorry, an internal server error has occured.")))
; 
; caught ERROR:
;   (during macroexpansion of (DEFMETHOD HANDLE-REQUEST-ERROR ...))
;   Unrecognized attribute (IT.BESE.YACLML.TAGS:HEAD
;                           (IT.BESE.YACLML.TAGS:TITLE #:TITLE-171)).

; compiling (DEFMETHOD HANDLE-REQUEST-ERROR ...)
; file: /home/dan/src/ucw_dev/src/rerl/request-loop-error.lisp
; in: DEFMETHOD HANDLE-REQUEST-ERROR (INEXISTENT-REQUEST-PART T)
;     (DEFMETHOD IT.BESE.UCW::HANDLE-REQUEST-ERROR
;              ((IT.BESE.UCW::ERR IT.BESE.UCW::INEXISTENT-REQUEST-PART)
;               IT.BESE.UCW::BACKTRACE)
;              (DECLARE (IGNORE IT.BESE.UCW::BACKTRACE))
;              (IT.BESE.UCW::WITH-ERROR-PAGE
;               (:TITLE
;                (IT.BESE.ARNESI:STRCAT "Missing Request Part."
;                                       IT.BESE.UCW::ERR))
;               (IT.BESE.YACLML.TAGS:P "Sorry, don't know what to do with "
;                                      (IT.BESE.YACLML.TAGS:AS-HTML
;                                       (IT.BESE.UCW::RERL-ERROR.QUERY-PATH
;                                        IT.BESE.UCW::ERR)))))
; 
; caught ERROR:
;   (during macroexpansion of (DEFMETHOD HANDLE-REQUEST-ERROR ...))
;   Unrecognized attribute (IT.BESE.YACLML.TAGS:HEAD
;                           (IT.BESE.YACLML.TAGS:TITLE #:TITLE-172)).

; compiling (DEFMETHOD HANDLE-REQUEST-ERROR ...)
; file: /home/dan/src/ucw_dev/src/rerl/request-loop-error.lisp
; in: DEFMETHOD HANDLE-REQUEST-ERROR (INEXISTENT-APPLICATION-NAME T)
;     (DEFMETHOD IT.BESE.UCW::HANDLE-REQUEST-ERROR
;              ((IT.BESE.UCW::ERR IT.BESE.UCW::INEXISTENT-APPLICATION-NAME)
;               IT.BESE.UCW::BACKTRACE)
;              (DECLARE (IGNORE IT.BESE.UCW::BACKTRACE))
;              (IT.BESE.UCW::WITH-ERROR-PAGE
;               (:TITLE "Inexistent Application Name.")
;               (IT.BESE.YACLML.TAGS:P "Error: The URL "
;                                      (IT.BESE.YACLML.TAGS:TT
;                                       (IT.BESE.YACLML.TAGS:AS-HTML #))
;                                      " does not name a known application.")))
; 
; caught ERROR:
;   (during macroexpansion of (DEFMETHOD HANDLE-REQUEST-ERROR ...))
;   Unrecognized attribute (IT.BESE.YACLML.TAGS:HEAD
;                           (IT.BESE.YACLML.TAGS:TITLE #:TITLE-173)).

; compiling (DEFMETHOD HANDLE-REQUEST-ERROR ...)
; file: /home/dan/src/ucw_dev/src/rerl/request-loop-error.lisp
; in: DEFMETHOD HANDLE-REQUEST-ERROR (INEXISTENT-ACTION-ID T)
;     (DEFMETHOD IT.BESE.UCW::HANDLE-REQUEST-ERROR
;              ((IT.BESE.UCW::ERR IT.BESE.UCW::INEXISTENT-ACTION-ID)
;               IT.BESE.UCW::BACKTRACE)
;              (DECLARE (IGNORE IT.BESE.UCW::BACKTRACE))
;              (IT.BESE.UCW::WITH-ERROR-PAGE
;               (:TITLE
;                (IT.BESE.ARNESI:STRCAT "Inexistent Action Id: "
;                                       (SLOT-VALUE IT.BESE.UCW::ERR
;                                                   'IT.BESE.UCW::ACTION-ID)))
;               (IT.BESE.YACLML.TAGS:P "No action associated with the action-id "
;                                      (IT.BESE.YACLML.TAGS:TT
;                                       (IT.BESE.YACLML.TAGS:AS-HTML #)))))
; 
; caught ERROR:
;   (during macroexpansion of (DEFMETHOD HANDLE-REQUEST-ERROR ...))
;   Unrecognized attribute (IT.BESE.YACLML.TAGS:HEAD
;                           (IT.BESE.YACLML.TAGS:TITLE #:TITLE-174)).

; compiling (DEFVAR *CURRENT-CONDITION* ...)
; compiling (DEFVAR *CURRENT-BACKTRACE* ...)
; compiling (DEFGENERIC HANDLE-ACTION-ERROR ...)
; compiling (DEFGENERIC HANDLE-ACTION-ERROR-USING-APPLICATION ...)
; compiling (DEFMETHOD HANDLE-ACTION-ERROR ...)
; compiling (DEFMACRO WITH-ACTION-ERROR-HANDLER ...)
; compiling (DEFUN SEND-BACKTRACE-TO-EMACS ...)
; compiling (DEFUN GENERATE-BACKTRACE-FOR-EMACS ...)
; file: /home/dan/src/ucw_dev/src/rerl/request-loop-error.lisp
; in: DEFUN GENERATE-BACKTRACE-FOR-EMACS
;     (IT.BESE.UCW:SERVER.BACKEND IT.BESE.UCW::SERVER)
; 
; caught STYLE-WARNING:
;   undefined function: SERVER.BACKEND

; 
; caught STYLE-WARNING:
;   This function is undefined:
;     SERVER.BACKEND
; 
; compilation unit finished
;   caught 5 ERROR conditions
;   caught 2 STYLE-WARNING conditions


; /home/dan/src/ucw_dev/src/rerl/request-loop-error.fasl written
; compilation finished in 0:00:01
#P"/home/dan/src/ucw_dev/src/rerl/request-loop-error.fasl"
T