[Bese-devel] isolated actions

[Drew Crampsie]

Drew Crampsie wrote:

> 
> 
> I sent a patch to the list along with my reply to Evrim, which i am 
> using in production without a problem.
> 
> I re-sent it, incase i messed something up. (i suck at mailing lists).

And i still don't see it, so here it is again :

basically, replace defaction with :

(defmacro defaction (name &rest rest)
   (if (equal (car rest) :isolate)
       (with-unique-names (memo-id memo memo-present-p)
         `(defaction ,name ,(second rest)
           (let ((,memo-id
                  (strcat (mapcar (rcurry #'funcall *context*)
                                  (list #'find-session-id
                                        #'find-frame-id
                                        #'find-action-id)))))
           (multiple-value-bind (,memo ,memo-present-p)
               (gethash ,memo-id (component.isolate-hash ,(caar (second 
rest))))
             (if  ,memo-present-p
                  ,memo
                  (setf (gethash ,memo-id (component.isolate-hash ,(caar 
(second rest))))
                        (progn ,@ (cddr rest))))))))

       `(%defaction ,name , at rest)))

and remove RUN-ISOLATED from standard-component.lisp


Sorry if this appeared multiple times, etc etc.

drewc

> 
> drewc
> 
>>
>> Alex
>>
>> __________________________________________________
>> Do You Yahoo!?
>> Tired of spam?  Yahoo! Mail has the best spam protection around 
>> http://mail.yahoo.com _______________________________________________
>> bese-devel mailing list
>> bese-devel at common-lisp.net
>> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel
> 
> 
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel

-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: isolate.patch
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060405/f531a75c/attachment.ksh>