[Fwd: Re: [Bese-devel] isolated actions]

Evrim ULU evrim at core.gen.tr
Wed Apr 5 08:40:36 UTC 2006


Drew Crampsie wrote:

>
> Cleans things up a bit IMO.

good morning Drew,

Let's make this stay inside the code segment, ok?

(defmacro defaction (name &rest rest)
  (if (and (listp rest)
       (keywordp (car rest)))
      (let ((macro-symbol (intern (format nil "DEFACTION-~A"
(string-upcase (car rest))))))
    `(,macro-symbol ,name ,@(cdr rest)))
      `(%defaction ,name , at rest)))

(defmacro defaction-isolate (name &rest rest)
  (format t "~%name:~A, rest: ~S~%" name rest))

(defmacro defaction-yourfavoritekeywordhere (name &rest rest) ...

If you are comfortable with this, i'm going to add and export your
isolate action, of course, you may continue using the old style.

king regards,
evrim.



More information about the bese-devel mailing list