/[gcl]/gcl/o/character.d
ViewVC logotype

Diff of /gcl/o/character.d

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

revision 1.10 by camm, Sat Jul 23 08:53:48 2005 UTC revision 1.11 by camm, Sun Sep 18 02:48:58 2005 UTC
# Line 52  Foundation, 675 Mass Ave, Cambridge, MA Line 52  Foundation, 675 Mass Ave, Cambridge, MA
52          @(return Cnil)          @(return Cnil)
53  @)  @)
54    
 @(defun string_char_p (c)  
 @  
         if (type_of(c)!=t_character) @(return Cnil)  
   /*    check_type_character(&c);*/  
         if (char_font(c) != 0 || char_bits(c) != 0)  
                 @(return Cnil)  
         @(return Ct)  
 @)  
   
55  @(defun alpha_char_p (c)  @(defun alpha_char_p (c)
56          int i;          int i;
57  @  @
# Line 633  gcl_init_character_function() Line 624  gcl_init_character_function()
624  {  {
625          make_function("STANDARD-CHAR-P", Lstandard_char_p);          make_function("STANDARD-CHAR-P", Lstandard_char_p);
626          make_function("GRAPHIC-CHAR-P", Lgraphic_char_p);          make_function("GRAPHIC-CHAR-P", Lgraphic_char_p);
         make_function("STRING-CHAR-P", Lstring_char_p);  
627          make_function("ALPHA-CHAR-P", Lalpha_char_p);          make_function("ALPHA-CHAR-P", Lalpha_char_p);
628          make_function("UPPER-CASE-P", Lupper_case_p);          make_function("UPPER-CASE-P", Lupper_case_p);
629          make_function("LOWER-CASE-P", Llower_case_p);          make_function("LOWER-CASE-P", Llower_case_p);

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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