Parent Directory | Revision Log | Patch
revision 1.5 by camm, Wed Feb 26 22:21:37 2003 UTC | revision 1.6 by camm, Tue Jul 15 18:03:38 2003 UTC | |
---|---|---|
# | Line 355 BEGIN: | Line 355 BEGIN: |
355 | @(defun char_code (c) | @(defun char_code (c) |
356 | @ | @ |
357 | check_type_character(&c); | check_type_character(&c); |
358 | @(return `small_fixnum(char_code(c))`) | @(return `make_fixnum(char_code(c))`) |
359 | @) | @) |
360 | ||
361 | @(defun char_bits (c) | @(defun char_bits (c) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |