/[gcl]/gcl/h/object.h
ViewVC logotype

Diff of /gcl/h/object.h

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

revision 1.34 by camm, Tue Jun 14 22:38:26 2005 UTC revision 1.35 by camm, Wed Jun 15 22:23:46 2005 UTC
# Line 880  struct freelist { Line 880  struct freelist {
880                             is_imm_fixnum(_z) ? t_fixnum : \                             is_imm_fixnum(_z) ? t_fixnum : \
881                             (_z==Cnil || _z==Ct || _z==Dotnil ? t_symbol : \                             (_z==Cnil || _z==Ct || _z==Dotnil ? t_symbol : \
882                             (is_cons(_z) ?  t_cons  : _z->d.t));})                             (is_cons(_z) ?  t_cons  : _z->d.t));})
883  #define set_type_of(x,y) ({object _x=(object)(x);enum type _y=(y);*(fixnum *)(_x)=0;\  #define set_type_of(x,y) ({object _x=(object)(x);enum type _y=(y);*(fixnum *)(_x)&=TYPE_BITS;\
884                             if (_y!=t_cons) {_x->d.e=1;_x->d.t=_y;}})                             if (_y!=t_cons) {_x->d.e=1;_x->d.t=_y;}})
885  /*  /*
886   Storage manager for each type.   Storage manager for each type.

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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