Added NAK to the set of codes escaped with DLE.

Pascal J. Bourguignon [2012-02-05 00:46]
Added NAK to the set of codes escaped with DLE.
Filename
common-lisp/data-encoding/ecp.lisp
diff --git a/common-lisp/data-encoding/ecp.lisp b/common-lisp/data-encoding/ecp.lisp
index 979ef62..bde5996 100644
--- a/common-lisp/data-encoding/ecp.lisp
+++ b/common-lisp/data-encoding/ecp.lisp
@@ -391,7 +391,7 @@ RETURN:     index of first byte not processed from BUFFER; (ecp-block ecp) -- wh
                      (< i end))
          :do (let ((byte (logand (aref buffer i) #x7f)))
                (incf i)
-               (if (or (= byte dle) (= byte nul) (= byte syn))
+               (if (or (= byte dle) (= byte nul) (= byte syn) (= byte nak))
                    (if (< (ecp-count ecp) (- +ecp-block-size+ 4))
                        (progn (generate dle) (generate nul))
                        (generate nul))
ViewGit