/[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.4 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.5 by camm, Wed Feb 26 22:21:37 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 `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)`))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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