X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fload.lisp;h=bd764fd8d1ee718af08e0434f66ce885064a7447;hb=89eb73c035f05ae53b1148ef8a83e1d4030b2dd8;hp=e68ff75a1a21c83bde36c1e05547c04e66142532;hpb=edaebea5b5e6682b36f4067e3b187bd9fb4a5c25;p=sbcl.git

diff --git a/src/code/load.lisp b/src/code/load.lisp
index e68ff75..bd764fd 100644
--- a/src/code/load.lisp
+++ b/src/code/load.lisp
@@ -57,7 +57,7 @@
       ((>= cnt n) res)))
 
 ;;; Like Fast-Read-U-Integer, but the size may be determined at run time.
-(defmacro fast-read-variable-u-integer (n)
+(defmacro fast-read-var-u-integer (n)
   (let ((n-pos (gensym))
 	(n-res (gensym))
 	(n-cnt (gensym)))