X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-setf.lisp;h=da77d6a785be276172e1abb92e6c553a829b132d;hb=c8218514d751c4d777892b79bbf1ca6597f731c0;hp=ff87f9fbfcf2f2970a396f9acc6e1f6ae6f1ba52;hpb=5e3fb5149366dd84a5cb76bf1cf5f2324c24ca57;p=sbcl.git

diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp
index ff87f9f..da77d6a 100644
--- a/src/code/early-setf.lisp
+++ b/src/code/early-setf.lisp
@@ -524,7 +524,7 @@ GET-SETF-EXPANSION directly."
 (sb!xc:define-setf-expander ldb (bytespec place &environment env)
   #!+sb-doc
   "The first argument is a byte specifier. The second is any place form
-  acceptable to SETF. Replaces the specified byte of the number in this
+  acceptable to SETF. Replace the specified byte of the number in this
   place with bits from the low-order end of the new value."
   (declare (type sb!c::lexenv env))
   (multiple-value-bind (dummies vals newval setter getter)