type: lcons and string are subtypes of sequence.

Omissions reported by user vapnik spaknik.

* lib.c (subtypepe): The lcons type and string type must
report as subtypes of sequence.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index ebcd1670..08e1d5ea 100644
--- a/lib.c
+++ b/lib.c
@@ -234,7 +234,7 @@ val subtypep(val sub, val sup)
   } else if (sup == sequence_s) {
     return tnil(sub == str_s || sub == lit_s || sub == lstr_s ||
                 sub == vec_s || sub == null_s || sub == cons_s ||
-                sub == list_s);
+                sub == lcons_s || sub == list_s || sub == string_s);
   } else if (sup == string_s) {
     return tnil(sub == str_s || sub == lit_s || sub == lstr_s);
   } else if (sup == stream_s) {