Handle sequence structs in toseq.

* lib.c (toseq): Handle OBJP case, and
implement behavior for struct objects that
have a car method.

1 files changed, 4 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 3e245e40..29d11ef9 100644
--- a/lib.c
+++ b/lib.c
@@ -691,6 +691,10 @@ val toseq(val seq)
   case CONS:
   case LCONS:
     return nullify(seq);
+  case COBJ:
+    if (structp(seq) && maybe_slot(seq, car_s))
+      return nullify(seq);
+    /* fallthrough */
   default:
     return cons(seq, nil);
   }