Use cl-incf (ch11ng#24)

* xcb.el (xcb:-cache-request),
  xelb-gen: Use cl-incf.

Author: minad

xcb.el

@@ -552,10 +552,10 @@ classes of EVENT (since they have the same event number)."
          (cache (slot-value obj 'request-cache)))
     (when extension-opcode
       (setq msg (vconcat (vector extension-opcode) msg))
-      (setq len (1+ len)))
+      (cl-incf len))
     (when (> 2 (length msg))   ;for short message (e.g. GetInputFocus)
       (setq msg (vconcat msg [0]))
-      (setq len (1+ len)))
+      (cl-incf len))
     (setq msg
           (vconcat (substring msg 0 2)
                    (funcall (if (slot-value request '~lsb) #'xcb:-pack-u2-lsb

xelb-gen

@@ -347,7 +347,7 @@ an `xelb-auto-padding' attribute."
                              (expression (xelb-node-subnode i)))
                         (if expression
                             (setq value (xelb-parse-expression expression))
-                          (setq value (1+ value)))
+                          (cl-incf value))
 			;; Omit the rare enums that do not fit in a fixnum in
 			;; 32-bit Emacs, so that the resulting .el and .elc
 			;; files are portable to 32-bit Emacs.  Admittedly