Advertisement
Guest User

Untitled

a guest
Mar 7th, 2018
87
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (let ((encoded (ieee-floats:encode-float32 f)))
  2. (write-byte (ldb (byte 8 0) encoded) stream)
  3. (write-byte (ldb (byte 8 8) encoded) stream)
  4. (write-byte (ldb (byte 8 16) encoded) stream)
  5. (write-byte (ldb (byte 8 24) encoded) stream))
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement