X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-exception.lisp;h=397bf538f7236ab115f583f3cf43c137fe0a0c0d;hb=25fe91bf63fd473d9316675b0e0ca9be0079e9eb;hp=f01acf731bda22c0503af558210804b57e73f4a0;hpb=b43b6e70ce48d959d77f7f56be9d11aa101fdd7d;p=sbcl.git diff --git a/src/code/target-exception.lisp b/src/code/target-exception.lisp index f01acf7..397bf53 100644 --- a/src/code/target-exception.lisp +++ b/src/code/target-exception.lisp @@ -73,7 +73,7 @@ (sb!debug:*stack-top-hint* (nth-value 1 (sb!kernel:find-interrupted-name-and-frame)))) (if condition-name (error condition-name) - (error "An exception occurred in context ~S: ~S. (Exception code: ~S)" + (error "An exception occurred in context ~S: ~S. (Exception code: ~S)" context-sap exception-record-sap code)))) ;;;; etc.