X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=8fb704a943e7cf24a9f3b6e6d9a6e6262aec81d5;hb=355e6c09a8f7f528a838f7a50b99ad77811b51a2;hp=b441516c2413ff87f0e6530a2a499f007a042656;hpb=17532463fa19f2fc2aba53b65c32e200a27ccd6a;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index b441516..8fb704a 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -490,5 +490,6 @@
   (declare (type system-area-pointer context-sap))
   (infinite-error-protect
    (let ((context (sap-alien context-sap (* os-context-t))))
-     (error "Unhandled breakpoint/trap at #x~X."
-            (sap-int (sb!vm:context-pc context))))))
+     (error 'breakpoint-error
+            :context context
+            :address (sap-int (sb!vm:context-pc context))))))