Index: /trunk/ccl/lib/level-2.lisp
===================================================================
--- /trunk/ccl/lib/level-2.lisp	(revision 413)
+++ /trunk/ccl/lib/level-2.lisp	(revision 414)
@@ -434,5 +434,5 @@
     (setq val (logior (ash val 1) (%get-bit ptr bit)))))
 
-(defun (setf %get-bitfield) (val ptr start width)
+(defun %set-bitfield (ptr start width val)
   (declare (fixnum val start width))
   (do* ((v val (ash v -1))