break dbl-backtrace loop on nil ihs from next-stack-frame - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

break dbl-backtrace loop on nil ihs from next-stack-frame

-rwxr-xr-x

1 files changed, 1 insertions, 1 deletions

diff --git a/gcl/lsp/gcl_debug.lsp b/gcl/lsp/gcl_debug.lsp
index 1ac9d460e..5925792a3 100755
--- a/gcl/lsp/gcl_debug.lsp
+++ b/gcl/lsp/gcl_debug.lsp

@@ -704,7 +704,7 @@

line env (i 0))

(loop

(mv-setq (ihs fun line file env) (next-stack-frame ihs))

- (or fun (return nil))

+ (or (and ihs fun) (return nil))

(print-stack-frame i nil ihs fun line file env)

(incf i)

(cond ((fb >= i m) (return (values))))

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月04日 14:57:09 +0000