Fixed decoding of :uuid-old and :binary-old

EuAndreh · Jun 8, 2015 · 3cc5fb3 · 3cc5fb3
1 parent 7a76450
commit 3cc5fb3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/decode.lisp b/src/decode.lisp
@@ -147,6 +147,8 @@
          (subtype (case (fast-read-byte *bson-in*)
                     (#x00 :generic)
                     (#x01 :function)
+                    (#x02 :binary-old)
+                    (#x03 :uuid-old)
                     (#x04 :uuid)
                     (#x05 :md5)
                     (#x80 :user-defined)))

diff --git a/t/cl-bson.lisp b/t/cl-bson.lisp
@@ -488,7 +488,6 @@
     (is-type (get-element doc "binary data")
              '<binary-data>
              "binary data in document is a <BINARY-DATA>.")
-
     (is-type (get-element doc "javascript code")
              '<javascript>
              "javascript code in document is a <JAVASCRIPT>.")