sldb-break-at-start implementation, package l. violation
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
Triaged
|
Low
|
Unassigned | ||
Slime |
Invalid
|
Undecided
|
Unassigned |
Bug Description
I saw that sldb-break-at-start wasn't implemented for SBCL, so I did my own. But when I want to look at the arguments via inspect-in-frame I get an error ...
(defimplementation sldb-break-at-start (fname)
(trace :break T :function fname))
but then trying to inspect SB-INT:ARG-LIST gives
(:emacs-rex (swank:
; in: LAMBDA (#:G940)
; (SYMBOL-MACROLET ((SB-INT:ARG-LIST
; (SB-DI:
; '#<SB-DI:
; {10042B45E1}>
; #:G940)))
; SB-INT:ARG-LIST)
;
; caught WARNING:
; Compile-time package lock violation:
; Lock on package SB-INT violated when binding ARG-LIST as a local symbol-macro
; while in package COMMON-LISP-USER.
; See also:
; The SBCL Manual, Node \"Package Locks\"
;
; caught ERROR:
; Lock on package SB-INT violated when binding ARG-LIST as a local symbol-macro
; while in package COMMON-LISP-USER.
; See also:
; The SBCL Manual, Node \"Package Locks\"
;
(LAMBDA (#:G941))
SWANK-
(LAMBDA ())
SWANK:
(LAMBDA ())
SWANK-
SWANK:
SWANK:
This is SBCL x86_64 1.0.51.0.debian, quicklisp slime-20111001-cvs.
This seems to be the part
(let ((res (coerce `(lambda (,n-frame)
(declare (ignorable ,n-frame))
(symbol- macrolet ,(specs) ,form))
'function) ))
in src/code/ debug-int. lisp (preprocess- for-eval)