master: Actually fix check-coerce
stassats via Sbcl-commits <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.cvs |
|---|---|
| Message-ID | <[email protected]> |
The branch "master" has been updated in SBCL:
via 84d567275cae72917dba852b9a68e9a606290cf2 (commit)
from 3fc33eb8c0f05f8af4eaf225c626be05ba4fb930 (commit)
- Log -----------------------------------------------------------------
commit 84d567275cae72917dba852b9a68e9a606290cf2
Author: Stas Boukarev <[email protected]>
Date: Fri Apr 10 19:56:10 2026 +0300
Actually fix check-coerce
---
src/compiler/typetran.lisp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/compiler/typetran.lisp b/src/compiler/typetran.lisp
index 4fb8bd9cf..e6adc10fc 100644
--- a/src/compiler/typetran.lisp
+++ b/src/compiler/typetran.lisp
@@ -1842,7 +1842,7 @@
(fail))
((types-equal-or-intersect value-type to-type))
((csubtypep to-type (specifier-type 'sequence))
- (unless (csubtypep value-type (specifier-type 'sequence))
+ (unless (types-equal-or-intersect value-type (specifier-type 'sequence))
(fail)))
((eql type-specifier 'character)
(unless (types-equal-or-intersect value-type
-----------------------------------------------------------------------
hooks/post-receive
--
SBCL