Remove dependency on IEEE-Floats library, use float functions in nibb…

…les instead.

cleric.asd

@@ -9,7 +9,7 @@
   :author "Markus Flambard <mflambard@common-lisp.net>"
   :version "0.1.2"
   :license "MIT License"
-  :depends-on (:usocket :flexi-streams :md5 :ieee-floats :alexandria :nibbles)
+  :depends-on (:usocket :flexi-streams :md5 :alexandria :nibbles)
   :components
   ((:module :src
             :components
@@ -52,9 +52,6 @@
                     :depends-on ("packages"
                                  "atom-cache"
                                  "bops"))
-             (:file "ieee-floats" ;; Needs IEEE-Floats library
-                    :depends-on ("packages"
-                                 "bops"))
              (:file "epmd"
                     :depends-on ("packages"
                                  "listen"
@@ -116,7 +113,6 @@
                     :depends-on ("packages"
                                  "constants"
                                  "conditions"
-                                 "ieee-floats"
                                  "bops"))
              (:file "erlang-fun"
                     :depends-on ("packages"

src/bops.lisp

@@ -66,3 +66,12 @@
   (let ((str (make-string n)))
     (read-sequence str stream)
     str))
+
+
+(defun double-float-to-bytes (f)
+  (let ((bytes (nibbles:make-octet-vector 8)))
+    (setf (nibbles:ieee-double-ref/be bytes 0) f)
+    bytes))
+
+(defun bytes-to-double-float (bytes)
+  (nibbles:ieee-double-ref/be bytes 0))