X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=eb4be3d0881f47861684b7416effb130c3783e75;hb=b19093fa94d6e1785abee99c35c9a610e8777671;hp=c3a4f09827b9b9f811f41bd44b3bdbf682a56ee3;hpb=231721189e1e2431597dc013aaf5eee01bc41a51;p=sbcl.git diff --git a/src/code/interr.lisp b/src/code/interr.lisp index c3a4f09..eb4be3d 100644 --- a/src/code/interr.lisp +++ b/src/code/interr.lisp @@ -40,7 +40,6 @@ ;; where his error was detected instead of telling him where ;; he ended up inside the system error-handling logic. (declare (ignorable name ,fp ,context ,sc-offsets)) - (/show0 "about to do outer LETs in DEFERR macroexpanded DEFUN") (let (,@(let ((offset -1)) (mapcar #'(lambda (var) `(,var (sb!di::sub-access-debug-var-slot