X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fdebug.lisp;h=c5a08587a52eb896b0d28a73db8e3c764b19ad98;hb=731da68c7e3b7f2c4bc310aa75fc75f5aead24d2;hp=e3c665b732003434151707b7ac192432a17349b9;hpb=3c9981c71f4d0d2c5b5830486c4b9a35ab50a240;p=sbcl.git

diff --git a/src/compiler/debug.lisp b/src/compiler/debug.lisp
index e3c665b..c5a0858 100644
--- a/src/compiler/debug.lisp
+++ b/src/compiler/debug.lisp
@@ -415,7 +415,7 @@
     (typecase last
       (cif
        (unless (proper-list-of-length-p succ 1 2)
-         (barf "~S ends in an IF, but doesn't have one or two succesors."
+         (barf "~S ends in an IF, but doesn't have one or two successors."
                block))
        (unless (member (if-consequent last) succ)
          (barf "The CONSEQUENT for ~S isn't in SUCC for ~S." last block))