let intern_c_string works creating with non-pure strings

diff --git a/src/lread.c b/src/lread.c
index bd7182c398fd0f7f1bc7de4864955c31e139223d..f280dad97c0572bbd10e7b8ca9ffb53a602e4c54 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -4198,10 +4198,14 @@ intern_c_string_1 (const char *str, ptrdiff_t len)
 
   if (!SYMBOLP (tem))
     {
-      /* Creating a non-pure string from a string literal not implemented yet.
-        We could just use make_string here and live with the extra copy.  */
-      eassert (!NILP (Vpurify_flag));
-      tem = intern_driver (make_pure_c_string (str, len), obarray, tem);
+      Lisp_Object string;
+
+      if (NILP (Vpurify_flag))
+       string = make_string (str, len);
+      else
+       string = make_pure_c_string (str, len);
+
+      tem = intern_driver (string, obarray, tem);
     }
   return tem;
 }