355 |
@(defun char_code (c) |
@(defun char_code (c) |
356 |
@ |
@ |
357 |
check_type_character(&c); |
check_type_character(&c); |
358 |
@(return `make_fixnum(char_code(c))`) |
@(return `small_fixnum(char_code(c))`) |
359 |
@) |
@) |
360 |
|
|
361 |
@(defun char_bits (c) |
@(defun char_bits (c) |
362 |
@ |
@ |
363 |
check_type_character(&c); |
check_type_character(&c); |
364 |
@(return `make_fixnum(char_bits(c))`) |
@(return `small_fixnum(char_bits(c))`) |
365 |
@) |
@) |
366 |
|
|
367 |
@(defun char_font (c) |
@(defun char_font (c) |
368 |
@ |
@ |
369 |
check_type_character(&c); |
check_type_character(&c); |
370 |
@(return `make_fixnum(char_font(c))`) |
@(return `small_fixnum(char_font(c))`) |
371 |
@) |
@) |
372 |
|
|
373 |
@(defun code_char (c &o (b `make_fixnum(0)`) (f `make_fixnum(0)`)) |
@(defun code_char (c &o (b `make_fixnum(0)`) (f `make_fixnum(0)`)) |