From dbe50406536187faf81850ae7e360d7d48f2918e Mon Sep 17 00:00:00 2001 From: SungminPark Date: Wed, 24 Jan 2024 19:03:54 +0900 Subject: [PATCH] fixed conditional build to encode-float32 for sbcl --- osc.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/osc.lisp b/osc.lisp index 6722cd6..cbf981b 100644 --- a/osc.lisp +++ b/osc.lisp @@ -356,7 +356,7 @@ (defun encode-float32 (f) "Encode an ieee754 float as a 4 byte vector." #+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) "Convert a vector of 4 bytes in network byte order into an ieee754 float."