Function: md4-unpack-int32

md4-unpack-int32 is a byte-compiled function defined in md4.el.gz.

Signature

(md4-unpack-int32 STR)

Source Code

;; Defined in /usr/src/emacs/lisp/md4.el.gz
(defun md4-unpack-int32 (str)
  (if (eq 4 (length str))
      (cons (+ (ash (aref str 3) 8) (aref str 2))
	    (+ (ash (aref str 1) 8) (aref str 0)))
    (error "%s is not 4 bytes long" str)))