From a02d286ad536923c1201bf06687f5bd6b0147432 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Mon, 31 Dec 2018 16:18:39 +0000
Subject: [PATCH] Spotted a bug in car of a stream, and fixed it.

---
 src/ops/lispops.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ops/lispops.c b/src/ops/lispops.c
index d66af71..9ab797a 100644
--- a/src/ops/lispops.c
+++ b/src/ops/lispops.c
@@ -625,6 +625,7 @@ lisp_car( struct stack_frame *frame, struct cons_pointer frame_pointer,
             break;
         case READTV:
             result = make_string( fgetwc( cell.payload.stream.stream ), NIL );
+            break;
         case STRINGTV:
             result = make_string( cell.payload.string.character, NIL );
             break;