Сердце лиспа функции на которых реализованы спец символы

Перепроверил, для чистоты емакс перезапустил - то же самое.

Вобощем бага не с guile а с geiser.

Очевидно вроде, надо сразу вне емакса тестить

А как репл с запущенным бесконечным циклом тестить вне емакса? )

А никак и поэтому бага не воспроизведется

У меня воспроизводится. При чем нормально работает, только если repl удаленный

GNU Emacs 26.3 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.14)

geiser-20200419.2111

Тож воспроизвёл

Там такой трейсбек

Debugger entered--Lisp error: (quit)
  accept-process-output(#<process Guile REPL> 3.0)
  geiser-con--send-string/wait((t (:filter . comint-output-filter) (:tq ((nil "\\(\n[^@()]+@([^)]*?)> \\|\n[^@()]+@([^)]*?) \\[[0-9]+\\]> \\)" ((:id . 5) (:string . ",geiser-eval #f  (define (foo n)\n  (sleep 1)\n  (display n)\n  (newline)\n  (foo (+ n 4)))\n ()") (:continuation . geiser-eval--set-sync-retort) (:buffer . #<buffer test.scm>) (:connection . #1)) . geiser-con--process-completed-request)) #<process Guile REPL> . #<buffer  tq-temp-Guile REPL>) (:tq-filter lambda (p s) (geiser-con--tq-filter (quote (((nil "\\(\n[^@()]+@([^)]*?)> \\|\n[^@()]+@([^)]*?) \\[[0-9]+\\]> \\)" ... . geiser-con--process-completed-request)) #<process Guile REPL> . #<buffer  tq-temp-Guile REPL>)) s)) (:eot . "\\(\n[^@()]+@([^)]*?)> \\|\n[^@()]+@([^)]*?) \\[[0-9]+\\]> \\)") (:prompt . "[^@()]+@([^)]*?)> ") (:debug-prompt . "[^@()]+@([^)]*?) \\[[0-9]+\\]> ") (:is-debugging) (:count . 5) (:completed . #<hash-table eql 0/65 0x15b8781>)) ",geiser-eval #f  (define (foo n)\n  (sleep 1)\n  (display n)\n  (newline)\n  (foo (+ n 4)))\n ()" geiser-eval--set-sync-retort nil nil)
  geiser-eval--send/wait((:eval (:scm " (define (foo n)\n  (sleep 1)\n  (display n)\n  (newline)\n  (foo (+ n 4)))\n")))
  geiser-debug--send-region(nil 1 73 nil nil nil)
  geiser-eval-region(1 73 nil t)
  geiser-eval-definition(nil)
  funcall-interactively(geiser-eval-definition nil)
  call-interactively(geiser-eval-definition nil nil)
  command-execute(geiser-eval-definition)

Видимо, пока в гуле какая-то функция запущена, он типа занят и не может откомпилировать новую версию

Я думаю, тут дело в том, что slime продвинутее geiser'а (потому что в slime этот фокус прокатывает даже с CCL, правда, в CCL продолжает работать старая версия функции, видимо, CCL слишком агрессивно использует TCO)

Короче, ябзарепортил в https://gitlab.com/jaor/geiser/

Debugger entered--Lisp error: (quit)
  accept-process-output(#<process Guile REPL> 3.0)
  geiser-con--send-string/wait((t (:filter . comint-output-filter) (:tq ((nil "\\(\n[^@()]+@([^)]*?)> \\|\n[^@()]+@([^)]*?) \\[[0-9]+\\]> \\)" ((:id . 5) (:string . ",geiser-eval #f  (define (foo n)\n  (sleep 1)\n  (display n)\n  (newline)\n  (foo (+ n 4)))\n ()") (:continuation . geiser-eval--set-sync-retort) (:buffer . #<buffer test.scm>) (:connection . #1)) . geiser-con--process-completed-request)) #<process Guile REPL> . #<buffer  tq-temp-Guile REPL>) (:tq-filter lambda (p s) (geiser-con--tq-filter (quote (((nil "\\(\n[^@()]+@([^)]*?)> \\|\n[^@()]+@([^)]*?) \\[[0-9]+\\]> \\)" ... . geiser-con--process-completed-request)) #<process Guile REPL> . #<buffer  tq-temp-Guile REPL>)) s)) (:eot . "\\(\n[^@()]+@([^)]*?)> \\|\n[^@()]+@([^)]*?) \\[[0-9]+\\]> \\)") (:prompt . "[^@()]+@([^)]*?)> ") (:debug-prompt . "[^@()]+@([^)]*?) \\[[0-9]+\\]> ") (:is-debugging) (:count . 5) (:completed . #<hash-table eql 0/65 0x15b8781>)) ",geiser-eval #f  (define (foo n)\n  (sleep 1)\n  (display n)\n  (newline)\n  (foo (+ n 4)))\n ()" geiser-eval--set-sync-retort nil nil)
  geiser-eval--send/wait((:eval (:scm " (define (foo n)\n  (sleep 1)\n  (display n)\n  (newline)\n  (foo (+ n 4)))\n")))
  geiser-debug--send-region(nil 1 73 nil nil nil)
  geiser-eval-region(1 73 nil t)
  geiser-eval-definition(nil)
  funcall-interactively(geiser-eval-definition nil)
  call-interactively(geiser-eval-definition nil nil)
  command-execute(geiser-eval-definition)

О, на 3-м тоже воспроизводится

Ага, вот где они обитают, ща зарепорчу +)

Зарепоритл. Закинул туда до всего прочего твой трейсбек :)

👌

Кто-нить знает какой-нибудь графический фреймворк, чтобы удобно отрисовывать графы?

Чтобы можно было по ребрам мышкой тыкать и возюкать