Checks BOM at the head of buffer

t-sin · Jun 11, 2017 · e93e6f0 · e93e6f0
1 parent 8fb4340
commit e93e6f0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/encoding/guess.lisp b/src/encoding/guess.lisp
@@ -132,7 +132,8 @@ independent_ name, `order` is a state at this function stops guessing process."
                                ,order
                                (generate-order ,@encs))))
            ;; special treatment of BOM
-           (check-byte-order-mark ,buffer :ucs-2be :ucs-2le ,order-var)
+           (unless ,order-var
+             (check-byte-order-mark ,buffer :ucs-2be :ucs-2le ,order-var))
 
            (do-guess-loop ,vars ,buffer
              ,@specialized-check