Function: uuid--concat-bits

uuid--concat-bits is a byte-compiled function defined in uuid.el.gz.

Signature

(uuid--concat-bits &rest NUM-AND-SIZES)

Documentation

Return number doing bitwise concatenating NUM-AND-SIZES.

NUM-AND-SIZES is a list of alternating numbers and their sizes in bits.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/uuid.el.gz
(defun uuid--concat-bits (&rest num-and-sizes)
  "Return number doing bitwise concatenating NUM-AND-SIZES.

NUM-AND-SIZES is a list of alternating numbers and their sizes in bits."
  (cl-loop for num-and-size in (reverse
                                (seq-partition num-and-sizes 2))
           with shift = 0
           sum (ash (car num-and-size) shift)
           do (incf shift (cadr num-and-size))))