diff options
Diffstat (limited to 'stdlib/match.tl')
| -rw-r--r-- | stdlib/match.tl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/stdlib/match.tl b/stdlib/match.tl index 65382cc2..333596b2 100644 --- a/stdlib/match.tl +++ b/stdlib/match.tl @@ -163,8 +163,7 @@ (ret ^(slotp ,type-gensym ',@1)) required-slots)) - ^(subtypep (typeof ,obj-var) - ',required-type)))))) + ^(typep ,obj-var ',required-type)))))) (unless loose-p (let ((type (find-struct-type required-type))) (if type |