Re: [Chicken-users] Issue loading a specifc file with Chicken-Slime

[Nick Gasson]

> It's here: http://paste.lisp.org/display/120567
> 
> The line that seems to cause the issue is 69 - (define (imag-part z) (apply-
> generic 'imag-part z))
> 
> It's odd because there are very similar (currently commented) lines around it 
> which do not cause any problem if uncommented. Something about the imag-part 
> definition does.

The problem seems to be that

(define (imag-part z) (apply-generic 'imag-part z))

Redefines a built-in function imag-part which is called inside the fmt
library (used internally to swank-chicken to format responses). This
then causes it to crash with:

READ 00006f(:emacs-rex (swank:listener-eval "(define (imag-part z)
(apply-generic 'imag-part z))\n") "CSI" :repl-thread 4)

Note: assignment to imported value binding: imag-part

Error: unbound variable: apply-generic

        Call history:

        <eval>    [swank-emacs-rex] (swank-write-packet result out)
        <eval>    [swank-write-packet] (with-output-to-string (lambda () (write
msg)))
        <eval>    [swank-write-packet] (write msg)
        <eval>    [swank-write-packet] (fmt #f (pad-hex (string-length string))
string)
        <eval>    [swank-write-packet] (pad-hex (string-length string))
        <eval>    [swank-write-packet] (string-length string)
        <eval>    [pad-hex] (pad-char #\0 (pad/left 6 (num n 16)))
        <eval>    [pad-hex] (pad/left 6 (num n 16))
        <eval>    [pad-hex] (num n 16)
        <eval>    [imag-part] (apply-generic (quote imag-part) z)       <--

Not sure what the best solution to this is.


Nick