[Bese-devel] a guard for a log

[Aleksandar Bakic]

Hi,

I noticed that a "when self" was missing within %defaction. NOTE: The patch is
reversed...

Alex

--- ucw/src/rerl/standard-action.lisp   2006-02-16 23:14:53.000000000 +0100
+++ tmp/ucw_dev/src/rerl/standard-action.lisp   2006-02-18 14:25:50.000000000
+0
100
@@ -124,16 +124,15 @@
                                            (and (listp form) (eql 'cl:declare
(
car form)))))
                                 (collect form)
                                 (pop body))
-                    (when ,self
-                      (ucw.component.action.info
-                       (format nil "Serving action (~{/~S~}/~A::~A ~S~{ ~S~})"
-                               (call-request-path ,self)
-                               ,(swank::shortest-package-nickname
(symbol-packa
ge name))
-                               ,(string name)
-                               ,self
-                               (list ,@(arnesi:extract-argument-names
-                                        (arnesi:walk-lambda-list other-args
nil
 nil
-                                                                
:allow-special
izers t))))))
+                     (ucw.component.action.info
+                      (format nil "Serving action (~{/~S~}/~A::~A ~S~{ ~S~})"
+                              (call-request-path ,self)
+                              ,(swank::shortest-package-nickname
(symbol-packag
e name))
+                              ,(string name)
+                              ,self
+                              (list ,@(arnesi:extract-argument-names
+                                       (arnesi:walk-lambda-list other-args nil

nil
+                                                               
:allow-speciali
zers t)))))
                      (let ((self ,self))
                        (declare (ignorable self))       
                        (block ,name


__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com