From c67ec5430ee9ccbaf92fcc13f824fdc01f6a4725 Mon Sep 17 00:00:00 2001 From: digikar Date: Wed, 11 Mar 2026 19:56:15 +0100 Subject: [PATCH] On Windows, line end character can be Return instead of Newline --- content-hash.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/content-hash.lisp b/content-hash.lisp index 4820bcc..6c68710 100644 --- a/content-hash.lisp +++ b/content-hash.lisp @@ -124,7 +124,9 @@ starting storage block in STREAM, and the total file size." "Read a line from a binary stream and return it as an ascii string." (with-output-to-string (string) (loop for byte = (read-byte stream) - until (= byte (char-code #\Newline)) + with line-end-chars = (list (char-code #\Newline) + (char-code #\Return)) + until (member byte line-end-chars :test #'=) do (write-char (code-char byte) string)))) (defun content-hash (tarfile)