diff src/alloc.c @ 3304:73051095a712

[xemacs-hg @ 2006-03-26 14:33:37 by crestani] 2006-03-26 Marcus Crestani <crestani@xemacs.org> * alloc.c (make_uninit_string): Use set_lispstringp_direct. * lisp.h (set_lispstringp_direct): New.
author crestani
date Sun, 26 Mar 2006 14:33:39 +0000
parents d674024a8674
children 1043bbfa24cf
line wrap: on
line diff
--- a/src/alloc.c	Sun Mar 26 14:05:30 2006 +0000
+++ b/src/alloc.c	Sun Mar 26 14:33:39 2006 +0000
@@ -2500,6 +2500,7 @@
   XSET_STRING_ASCII_BEGIN (wrap_string (s), 0);
 
 #ifdef NEW_GC
+  set_lispstringp_direct (s);
   STRING_DATA_OBJECT (s) = 
     wrap_string_direct_data (alloc_lrecord (fullsize, 
 					    &lrecord_string_direct_data));