On Thu, Dec 10, 2015 at 11:02 PM, Mirko Vukovic <mirko.vukovic@gmail.com> wrote:
>
>
> On Thu, Dec 10, 2015 at 1:32 PM, Luís Oliveira <luismbo@gmail.com> wrote:
>>
>> On Thu, Dec 10, 2015 at 4:16 PM, Mirko Vukovic <mirko.vukovic@gmail.com>
>> wrote:
>> > I played by selectively adding code -- I started with the
>> > (with-png-output
>> > ...) just by itself, and that worked.
>> > Then I started adding form by form.  It failed when I added the last
>> > form
>> > (fill-and-stroke).
>>
>> Can you paste the complete backtrace? (You can get it by clicking
>> --more-- after the last displayed frame in the debugger.)
>>
>
> More information.  Here is the form where the trouble is -- note the ><
> signs in it which
> I added now:
>
> (define-test pie-wedge/literal
>   >(with-png-output ("pie-wedge--literal.png" :width 80 :height 80)
>     (let ((x 0) (y 0)
>  (radius 70)
>  (angle1 (* (/ pi 180) 15))
>  (angle2 (* (/ pi 180) 45)))
>       (translate 5 5)
>       (set-rgb-fill 1 1 1)
>       (move-to 0 0)
>       (arc x y radius angle1 angle2)
>       (fill-and-stroke)))<)
>
> The error occurs when I expand with the cursor at the position marked with
> <.  In other words
> when the macro (with-png ...) is inside the (define-test ...) form.

Are you sure it's because of this macro? C-c C-m outside of a sexp does produce
this error and has been producing it for a long time.
But when the cursor is placed on a sexp, the #\( before
with-png-output, it works as expected.

--
With best regards, Stas.