mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-04 16:30:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

New utility function c_string_to_object().

Browse source
This commit is contained in:
jjgarcia 2001-09-29 11:01:37 +00:00
parent c167982060
commit 29dcac3ccc
2 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/read.d
View file

@ -2095,6 +2095,12 @@ read_table_entry(cl_object rdtbl, cl_object c)
@(return entry->dispatch_table[subcode])
@)
cl_object
c_string_to_object(const char *s)
{
return string_to_object(make_simple_string(s));
}
cl_object
string_to_object(cl_object x)
{

1
src/h/external.h
View file

@ -731,6 +731,7 @@ extern cl_object parse_integer(char *s, cl_index end, cl_index *ep, int radix);
extern cl_object copy_readtable(cl_object from, cl_object to);
extern cl_object current_readtable(void);
extern cl_object string_to_object(cl_object x);
extern cl_object c_string_to_object(const char *s);
extern void init_read(void);
extern void init_read_function(void);
extern void read_VV(cl_object block, void *entry);