I think Thomas Gentsch wrote:
>
> OK, thanks a lot - now it works. Somewhat cumbersome but OK.
> Summarizing, that's how it works:
>
> ...
> (defadvice before format (bind $?argv (create$ format t ?fmt
> $?parms)))
> (format)
> (undefadvice format)
> ...
>
> Regards,
> tge
>
You could use "eval" too, to do it on one line, something like:
(eval (str-cat "(format t " ?fmt " " $?parms ")"))
---------------------------------------------------------
Ernest Friedman-Hill
Distributed Systems Research Phone: (925) 294-2154
Sandia National Labs FAX: (925) 294-2234
Org. 8920, MS 9012 [EMAIL PROTECTED]
PO Box 969 http://herzberg.ca.sandia.gov
Livermore, CA 94550
---------------------------------------------------------------------
To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the
list (use your own address!) List problems? Notify [EMAIL PROTECTED]
---------------------------------------------------------------------
