From 29dcac3ccc7f3d1bef0ac6bbd21405a7a659e56f Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Sat, 29 Sep 2001 11:01:37 +0000
Subject: [PATCH] New utility function c_string_to_object().

---
 src/c/read.d     | 6 ++++++
 src/h/external.h | 1 +
 2 files changed, 7 insertions(+)

diff --git a/src/c/read.d b/src/c/read.d
index e142f6cc3..5f84b8f30 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -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)
 {
diff --git a/src/h/external.h b/src/h/external.h
index 0906862be..a42c97fbc 100644
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -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);