simon/post-scarcity
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity Actions

Metadata for file streams

Browse source
This commit is contained in:
Simon Brooke 2019-01-31 13:24:06 +00:00
parent 5e1ec1181a
commit bd4d655362
2 changed files with 82 additions and 63 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/ops/lispops.c
View file

@ -646,12 +646,12 @@ lisp_car( struct stack_frame *frame, struct cons_pointer frame_pointer,
case CONSTV:
result = cell.payload.cons.car;
break;
case NILTV:
break;
case READTV:
result =
make_string( url_fgetwc( cell.payload.stream.stream ), NIL );
break;
case NILTV:
break;
case STRINGTV:
result = make_string( cell.payload.string.character, NIL );
break;
@ -690,6 +690,8 @@ lisp_cdr( struct stack_frame *frame, struct cons_pointer frame_pointer,
case CONSTV:
result = cell.payload.cons.cdr;
break;
case NILTV:
break;
case READTV:
url_fgetwc( cell.payload.stream.stream );
result = frame->arg[0];
@ -697,8 +699,6 @@ lisp_cdr( struct stack_frame *frame, struct cons_pointer frame_pointer,
case STRINGTV:
result = cell.payload.string.cdr;
break;
case NILTV:
break;
default:
result =
throw_exception( c_string_to_lisp_string