X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsignal.lisp;h=7b1b6799be6d822995b919605250cf0271291eff;hb=a4d2556c02207a7b04ec497155f52e4f21d2795c;hp=cc8d9853ede2885e85f0d5580696cd74957dc1ec;hpb=53e7a02c819090af8e6db7e47d29cdbb5296814f;p=sbcl.git

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index cc8d985..7b1b679 100644
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -37,10 +37,6 @@
 ;;; are lost in the noise when compared with the cost of delivering
 ;;; the signal in the first place.
 
-;;; Magically converted by the compiler into a break instruction.
-(defun do-pending-interrupt ()
-  (do-pending-interrupt))
-
 #!-gengc (progn
 
 (defvar *interrupts-enabled* t)