Changeset 414

Timestamp:

Jan 26, 2004, 8:51:20 AM (21 years ago)

Author:

Gary Byers

Message:

(SETF %GET-BITFIELD) becomes %SET-BITFIELD, which is what the setf inverse
thought it was anyway.

File:

• trunk/ccl/lib/level-2.lisp (modified) (1 diff)

trunk/ccl/lib/level-2.lisp

@@ -434 +434 @@
     (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))