SBCL

SB-DEBUG:PRINT-FRAME-CALL should respect DEBUG-PRINT-VARIABLE-ALIST when printing arguments

Bug #1261646 reported by Jan Moringen on 2013-12-17

This bug affects 1 person

Affects		Status	Importance	Assigned to	Milestone
	SBCL	Fix Released	Undecided	Unassigned

Bug Description

What I do
CL-USER(2): (setf sb-debug:*debug-print-variable-alist* '((*print-length* . 5)))
CL-USER(5): (defun f (x) (sleep 5) (length x))

What happens:
CL-USER(6): (f (make-list 200))
^C
[...]
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1003873583}>
0: ("bogus stack frame")
1: (F (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL))
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (F (MAKE-LIST 200)) #<NULL-LEXENV>)
[...]

What did I expect to happen:
CL-USER(8): (f (make-list 200))
^C
[...]
Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1003873583}>
0: ("bogus stack frame")
1: (F (NIL NIL NIL NIL NIL ...))
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (F (MAKE-LIST 200)) #<NULL-LEXENV>)
[...]

Tags: