[Bese-devel] ucw feature request

[Aleksandar Bakic]

Infinite recursion is possible. The check below, for example, helps:

(defmethod call-request-path ((subject standard-component))
  (labels ((find-component-path (comp &optional acc)
             (push (class-name (class-of comp)) acc)
             (aif (or (and (slot-boundp comp 'parent)
                           (slot-value comp 'parent))
                      (when (not (or (eq *current-component* :unbound)
                                     (eq *current-component* comp)
				     (> (length acc) 20))) ; enough is enough
                        *current-component*))
                  (find-component-path it acc)
                  acc)))
    (call-next-method (find-component-path subject))))

Alex

--- Aleksandar Bakic <a_bakic at yahoo.com> wrote:

> > My attempt is in the attachment. I've looked at AWStats and it can be
> > configured to such format easily.
> 
> Heads up: when I do (using sbcl):
> 
> (setf (log.level (get-logger 'ucw::ucw-logger)) +info+)
> 
> one action paths gets logged and then my machine hangs up...
> 
> Alex
> 
> 
> 	
> 		
> __________________________________ 
> Yahoo! Mail - PC Magazine Editors' Choice 2005 
> http://mail.yahoo.com
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
> 



		
__________________________________ 
Yahoo! FareChase: Search multiple travel sites in one click.
http://farechase.yahoo.com