- (flet ((random-fixnum ()
- (random (1+ most-positive-fixnum))))
- (let ((drops (random-fixnum)))
- (declare (fixnum drops))
- (lambda (layouts value)
- (when (logbitp 0 drops)
- (try-update-cache copy layouts value))
- (when (zerop (ash drops -1))
- (setf drops (random-fixnum))))))