1 files changed, 5 insertions(+), 5 deletions(-)

M src/bare.lisp

@@ 151,8 151,8 @@ Set this dynamically in the function calling the DATA defbinary.")
     (read-binary type stream)))
 
 (defun write-optional-type (object stream)
-  (when (plusp (slot-value object 'value))
-    (write-byte 1 stream)
-    (write-binary object stream))
-  (when (zerop (slot-value object 'value))
-    (write-byte 0 stream)))
+  (if (zerop (slot-value object 'value))
+      (write-byte 0 stream)
+      (progn
+        (write-byte 1 stream)
+        (write-binary object stream))))