X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rotate-byte%2Frotate-byte.lisp;h=9e947fd595d64a12bfacc1b04bbefc092e45dc63;hb=22c1de0a40df83bb5628974010a879cb2c17ff53;hp=02342f82ad04ec27f380c5cf38d462e08c9f8e17;hpb=cec71f1e4e1ead387f2ea642f760e553b6053f2b;p=sbcl.git

diff --git a/contrib/sb-rotate-byte/rotate-byte.lisp b/contrib/sb-rotate-byte/rotate-byte.lisp
index 02342f8..9e947fd 100644
--- a/contrib/sb-rotate-byte/rotate-byte.lisp
+++ b/contrib/sb-rotate-byte/rotate-byte.lisp
@@ -1,8 +1,11 @@
 (in-package "SB-ROTATE-BYTE")
 
-(defun rotate-byte (count byte integer)
-  #+sb-doc "FIXME: Write a docstring"
-  (rotate-byte count byte integer))
+(defun rotate-byte (count bytespec integer)
+  "Rotates a field of bits within INTEGER; specifically, returns an
+integer that contains the bits of INTEGER rotated COUNT times
+leftwards within the byte specified by BYTESPEC, and elsewhere
+contains the bits of INTEGER."
+  (rotate-byte count bytespec integer))
 
 (defun %rotate-byte (count size pos integer)
   (let ((count (nth-value 1 (round count size)))