Skip to content

Commit ccdf970

Browse files
committed
Don't warn about ASCII encodings (subset of UTF-8)
Currently warnings are thrown by concatenate-source-op every time ASDF is loaded if UTF-8 is the default encoding because the ASDF source is ASCII which is not equal to UTF-8. This commit adds a special case to the encoding equality check so that ASCII is recognized as a subset of UTF-8.
1 parent c2e2073 commit ccdf970

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

concatenate-source.lisp

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -69,7 +69,8 @@ into a single file"))
6969
:append
7070
(when (typep c 'cl-source-file)
7171
(let ((e (component-encoding c)))
72-
(unless (equal e encoding)
72+
(unless (or (equal e encoding)
73+
(and (equal e :ASCII) (equal encoding :UTF-8)))
7374
(let ((a (assoc e other-encodings)))
7475
(if a (push (component-find-path c) (cdr a))
7576
(push (list e (component-find-path c)) other-encodings)))))

0 commit comments

Comments
 (0)