Spotted a bug in car of a stream, and fixed it.
This commit is contained in:
parent
8fa71b13da
commit
a02d286ad5
|
@ -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;
|
||||
|
|
Loading…
Reference in a new issue