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.

If I cut that macro to be a top-level form (so that it is outside the define-test), the it expands fine.

Here is the backtrace:

The value NIL is not of the expected type ARRAY.

[Condition of type TYPE-ERROR]

Restarts:

0: [*ABORT] Return to SLIME's top level.

1: [ABORT-BREAK] Reset this thread

2: [ABORT] Kill this thread

Backtrace:

0: (CCL::ARRAY-DATA-AND-OFFSET NIL)

1: (MAKE-STRING-INPUT-STREAM NIL 0 0)

2: (READ-FROM-STRING NIL T NIL :START 0 :END NIL :PRESERVE-WHITESPACE NIL)

3: ((:INTERNAL SWANK::FROM-STRING))

4: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::FROM-STRING) #x2101BDE42F>)

5: ((:INTERNAL SWANK::APPLY-MACRO-EXPANDER))

6: (SWANK::CALL-WITH-BINDINGS ((*PRINT-CIRCLE*) (*PRINT-PRETTY* . T) (*PRINT-ESCAPE* . T) (*PRINT-LINES*) (*PRINT-LEVEL*) (*PRINT-LENGTH*)) #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL ..))

7: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::APPLY-MACRO-EXPANDER) #x2101BDE5DF>)

8: (CCL::CALL-CHECK-REGS SWANK:SWANK-EXPAND-1 NIL)

9: (CCL::CHEAP-EVAL (SWANK:SWANK-EXPAND-1 NIL))

10: (SWANK:EVAL-FOR-EMACS (SWANK:SWANK-EXPAND-1 NIL) "#:display-it" 65)

11: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD))

12: (SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x21012BB58F> #<Compiled-function (:INTERNAL SWANK::SPAWN-WORKER-THREAD) (Non-Global) #x210128363F>)

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..

14: ((:INTERNAL SWANK::SPAWN-WORKER-THREAD))

15: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS worker(37) [Active] #x2101BDA3ED> (#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x2101BDA17F>))

16: ((:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (CCL:PROCESS))) #<PROCESS worker(37) [Active] #x2101BDA3ED> (#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x2101BDA17F>))

17: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION))

Cheers,

--
Luís Oliveira
http://kerno.org/~luis/