X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=doc%2Fcompiler.sgml;fp=doc%2Fcompiler.sgml;h=39468a6b90d284ca82d8d95068438f24107e27a7;hb=08307967c71c580058a503d46aa087cfefcf8c69;hp=a72bc1a545ba760d721b71bfa469b581e137667f;hpb=66187cb2c39eb11c33451c64d90a644961fd0b46;p=sbcl.git

diff --git a/doc/compiler.sgml b/doc/compiler.sgml
index a72bc1a..39468a6 100644
--- a/doc/compiler.sgml
+++ b/doc/compiler.sgml
@@ -276,7 +276,7 @@ gives this error:
   (DO ((CURRENT L #) (# NIL)) (WHEN (EQ # E) (RETURN CURRENT)) )
 caught ERROR: (during macroexpansion)
 
-error in function LISP::DO-DO-BODY:
+error in function LISP::FROB-DO-BODY:
    DO step variable is not a symbol: (ATOM CURRENT)</screen>
 </para>