-(defun print-int32 (int32)
- "print 32 bits integer in 4 bytes string as little endian"
- (let ((h (car int32)) (l (cdr int32)))
- (list (logand l 255) (lsh l -8) (logand h 255) (lsh h -8))))
-
-(defun print-string-hexa (str)
- "print a string in hexadecimal"
- (let (out)
- (mapcar (function (lambda (x) (concat out (format "%x" x)))) str)))
-