X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=5be6e2e9c0d02c94d111c02d7635ce47d56d60df;hb=ea36d3d79b9dfe3598faca5e267efd5980b94d4a;hp=e7a674d3793a265be1f941b47866fe05afdc4407;hpb=0af84c9c90b1277be6863df8f28f1f0e5512323c;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index e7a674d..5be6e2e 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -151,6 +151,13 @@
   (enable-interrupt :sigalrm #'sigalrm-handler)
   (values))
 
+;;;; etc.
+
+;;; CMU CL comment:
+;;;   Magically converted by the compiler into a break instruction.
+(defun do-pending-interrupt ()
+  (do-pending-interrupt))
+
 ;;; stale code which I'm insufficiently motivated to test -- WHN 19990714
 #|
 ;;;; WITH-ENABLED-INTERRUPTS