0.pre7.11:

[sbcl.git] / src / code / target-signal.lisp

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