X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug.lisp;h=c5a08587a52eb896b0d28a73db8e3c764b19ad98;hb=45bc305be4e269d2e1a477c8e0ae9a64df1ccd1c;hp=e3c665b732003434151707b7ac192432a17349b9;hpb=c2431e2d0d0222a3cf20cfdfa48201bdcc65cd76;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))