[cffi-devel] finding out byte order

[Tamas K Papp]

What is the recommended way find to the byte order of the platform
using CFFI?  Currently I am using the following:

(defun native-byte-order-lsb-p ()
  (with-foreign-object (x :uint32)
    (setf (mem-ref x :uint32) 1)
    (= (mem-ref x :uint8) 1)))

but it looks like a nasty hack.

Tamas