/[gcl]/gcl/o/fat_string.c
ViewVC logotype

Diff of /gcl/o/fat_string.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by camm, Tue Aug 12 01:33:22 2003 UTC revision 1.17 by camm, Sun Sep 14 02:43:07 2003 UTC
# Line 438  object x0,x1; Line 438  object x0,x1;
438    
439  DEFVAR("*PROFILE-ARRAY*",sSAprofile_arrayA,SI,Cnil,"");  DEFVAR("*PROFILE-ARRAY*",sSAprofile_arrayA,SI,Cnil,"");
440  void  void
441  init_fat_string(void)  gcl_init_fat_string(void)
442  {  {
443    
444   make_si_constant("*ASH->>*",(-1==(((int)-1) >> 20))? Ct :Cnil);   make_si_constant("*ASH->>*",(-1==(((int)-1) >> 20))? Ct :Cnil);

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26