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 |
@ |
@ |
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); |