X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-int.lisp;h=83c7872284cf2a1f1550a49d36342342c6b8c437;hb=28d9bb7a509695caaf78d647b6aa1b0f02c0e83a;hp=698732871c05ad0fbdc2bdee88f81e8ff89786bb;hpb=b0b168c08b31a748150f404398af754f26fd4813;p=sbcl.git

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 6987328..83c7872 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -1745,7 +1745,7 @@
 	      (unless (fill-in-code-location code-location)
 		;; This check should be unnecessary. We're missing
 		;; debug info the compiler should have dumped.
-		(error "internal error: unknown code location"))
+		(bug "unknown code location"))
 	      (code-location-%tlf-offset code-location))
 	     ;; (There used to be more cases back before sbcl-0.7.0,,
 	     ;; when we did special tricks to debug the IR1
@@ -1766,7 +1766,7 @@
 	      (unless (fill-in-code-location code-location)
 		;; This check should be unnecessary. We're missing
 		;; debug info the compiler should have dumped.
-		(error "internal error: unknown code location"))
+		(bug "unknown code location"))
 	      (code-location-%form-number code-location))
 	     ;; (There used to be more cases back before sbcl-0.7.0,,
 	     ;; when we did special tricks to debug the IR1
@@ -1788,7 +1788,7 @@
 	     ((not (fill-in-code-location code-location))
 	      ;; This check should be unnecessary. We're missing
 	      ;; debug info the compiler should have dumped.
-	      (error "internal error: unknown code location"))
+	      (bug "unknown code location"))
 	     (t
 	      (compiled-code-location-kind code-location)))))
     ;; (There used to be more cases back before sbcl-0.7.0,,
@@ -1809,7 +1809,7 @@
 		 ;;
 		 ;; FIXME: This error and comment happen over and over again.
 		 ;; Make them a shared function.
-		 (error "internal error: unknown code location"))
+		 (bug "unknown code location"))
 	       (compiled-code-location-%live-set code-location))
 	      (t live-set)))))
 
@@ -3035,21 +3035,21 @@
 ;;; returns the overwritten bits. You must call this in a context in
 ;;; which GC is disabled, so that Lisp doesn't move objects around
 ;;; that C is pointing to.
-(sb!alien:define-alien-routine "breakpoint_install" sb!c-call:unsigned-long
-  (code-obj sb!c-call:unsigned-long)
-  (pc-offset sb!c-call:int))
+(sb!alien:define-alien-routine "breakpoint_install" sb!alien:unsigned-long
+  (code-obj sb!alien:unsigned-long)
+  (pc-offset sb!alien:int))
 
 ;;; This removes the break instruction and replaces the original
 ;;; instruction. You must call this in a context in which GC is disabled
 ;;; so Lisp doesn't move objects around that C is pointing to.
-(sb!alien:define-alien-routine "breakpoint_remove" sb!c-call:void
-  (code-obj sb!c-call:unsigned-long)
-  (pc-offset sb!c-call:int)
-  (old-inst sb!c-call:unsigned-long))
+(sb!alien:define-alien-routine "breakpoint_remove" sb!alien:void
+  (code-obj sb!alien:unsigned-long)
+  (pc-offset sb!alien:int)
+  (old-inst sb!alien:unsigned-long))
 
-(sb!alien:define-alien-routine "breakpoint_do_displaced_inst" sb!c-call:void
+(sb!alien:define-alien-routine "breakpoint_do_displaced_inst" sb!alien:void
   (scp (* os-context-t))
-  (orig-inst sb!c-call:unsigned-long))
+  (orig-inst sb!alien:unsigned-long))
 
 ;;;; breakpoint handlers (layer between C and exported interface)
 
@@ -3114,7 +3114,7 @@
 ;;; breakpoints.
 (defun handle-breakpoint-aux (breakpoints data offset component signal-context)
   (unless breakpoints
-    (error "internal error: breakpoint that nobody wants"))
+    (bug "breakpoint that nobody wants"))
   (unless (member data *executing-breakpoint-hooks*)
     (let ((*executing-breakpoint-hooks* (cons data
 					      *executing-breakpoint-hooks*)))