<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">On Thu, Dec 10, 2015 at 1:32 PM, Luís Oliveira <span dir="ltr"><<a href="mailto:luismbo@gmail.com" target="_blank">luismbo@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><span class="">On Thu, Dec 10, 2015 at 4:16 PM, Mirko Vukovic <<a href="mailto:mirko.vukovic@gmail.com">mirko.vukovic@gmail.com</a>> wrote:<br>
> I played by selectively adding code -- I started with the (with-png-output<br>
> ...) just by itself, and that worked.<br>
> Then I started adding form by form. It failed when I added the last form<br>
> (fill-and-stroke).<br>
<br>
</span>Can you paste the complete backtrace? (You can get it by clicking<br>
--more-- after the last displayed frame in the debugger.)<br>
<br></blockquote><div><br></div><div>More information. Here is the form where the trouble is -- note the >< signs in it which </div><div>I added now:</div><div><br></div><div><div>(define-test pie-wedge/literal</div><div> >(with-png-output ("pie-wedge--literal.png" :width 80 :height 80)</div><div> (let ((x 0) (y 0)</div><div><span class="" style="white-space:pre"> </span> (radius 70)</div><div><span class="" style="white-space:pre"> </span> (angle1 (* (/ pi 180) 15))</div><div><span class="" style="white-space:pre"> </span> (angle2 (* (/ pi 180) 45)))</div><div> (translate 5 5)</div><div> (set-rgb-fill 1 1 1)</div><div> (move-to 0 0)</div><div> (arc x y radius angle1 angle2)</div><div> (fill-and-stroke)))<)</div></div><div><br></div><div>The error occurs when I expand with the cursor at the position marked with <. In other words</div><div>when the macro (with-png ...) is inside the (define-test ...) form.</div><div><br></div><div>If I cut that macro to be a top-level form (so that it is outside the define-test), the it expands fine.</div><div><br></div><div>Here is the backtrace:</div><div><br></div><div>The value NIL is not of the expected type ARRAY.</div><div> [Condition of type TYPE-ERROR]</div><div><br></div><div>Restarts:</div><div> 0: [*ABORT] Return to SLIME's top level.</div><div> 1: [ABORT-BREAK] Reset this thread</div><div> 2: [ABORT] Kill this thread</div><div><br></div><div>Backtrace:</div><div> 0: (CCL::ARRAY-DATA-AND-OFFSET NIL)</div><div> 1: (MAKE-STRING-INPUT-STREAM NIL 0 0)</div><div> 2: (READ-FROM-STRING NIL T NIL :START 0 :END NIL :PRESERVE-WHITESPACE NIL)</div><div> 3: ((:INTERNAL SWANK::FROM-STRING))</div><div> 4: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FROM-STRING) #x2101BDE42F>)</div><div> 5: ((:INTERNAL SWANK::APPLY-MACRO-EXPANDER))</div><div> 6: (SWANK::CALL-WITH-BINDINGS ((*PRINT-CIRCLE*) (*PRINT-PRETTY* . T) (*PRINT-ESCAPE* . T) (*PRINT-LINES*) (*PRINT-LEVEL*) (*PRINT-LENGTH*)) #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL ..))</div><div> 7: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::APPLY-MACRO-EXPANDER) #x2101BDE5DF>)</div><div> 8: (CCL::CALL-CHECK-REGS SWANK:SWANK-EXPAND-1 NIL)</div><div> 9: (CCL::CHEAP-EVAL (SWANK:SWANK-EXPAND-1 NIL))</div><div> 10: (SWANK:EVAL-FOR-EMACS (SWANK:SWANK-EXPAND-1 NIL) "#:display-it" 65)</div><div> 11: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD))</div><div> 12: (SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x21012BB58F> #<Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global) #x210128363F>)</div><div> 13: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-OUTPUT* . #<SWANK/GRAY::SLIME-OUTPUT-STREAM #x2101491A2D>) (*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM #x2101491D9D>) ..))) #<CCL:COMPILED-LEXICAL-CLOSU..</div><div> 14: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD))</div><div> 15: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS worker(37) [Active] #x2101BDA3ED> (#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x2101BDA17F>))</div><div> 16: ((:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS))) #<PROCESS worker(37) [Active] #x2101BDA3ED> (#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x2101BDA17F>))</div><div> 17: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))</div><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
Cheers,<br>
<span class=""><font color="#888888"><br>
--<br>
Luís Oliveira<br>
<a href="http://kerno.org/~luis/" rel="noreferrer" target="_blank">http://kerno.org/~luis/</a><br>
</font></span></blockquote></div><br></div></div>