fixed conditional build to encode-float32 for sbcl
This commit is contained in:
parent
f647738ccc
commit
dbe5040653
1 changed files with 1 additions and 1 deletions
2
osc.lisp
2
osc.lisp
|
@ -356,7 +356,7 @@
|
||||||
(defun encode-float32 (f)
|
(defun encode-float32 (f)
|
||||||
"Encode an ieee754 float as a 4 byte vector."
|
"Encode an ieee754 float as a 4 byte vector."
|
||||||
#+sbcl (encode-int32 (sb-kernel:single-float-bits f))
|
#+sbcl (encode-int32 (sb-kernel:single-float-bits f))
|
||||||
(encode-int32 (ieee-floats:encode-float32 f)))
|
#-sbcl (encode-int32 (ieee-floats:encode-float32 f)))
|
||||||
|
|
||||||
(defun decode-float32 (v)
|
(defun decode-float32 (v)
|
||||||
"Convert a vector of 4 bytes in network byte order into an ieee754 float."
|
"Convert a vector of 4 bytes in network byte order into an ieee754 float."
|
||||||
|
|
Loading…
Reference in a new issue