/[gcl]/gcl/o/array.c
ViewVC logotype

Diff of /gcl/o/array.c

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

revision 1.42 by camm, Tue Sep 27 16:50:36 2005 UTC revision 1.43 by camm, Tue Sep 27 16:51:56 2005 UTC
# Line 511  DEFUN_NEW("GET-AELTTYPE",object,fSget_ae Line 511  DEFUN_NEW("GET-AELTTYPE",object,fSget_ae
511  #else  #else
512      return make_fixnum(aet_fix);      return make_fixnum(aet_fix);
513  #endif  #endif
                        );  
514    if (x==sLnegative_fixnum || x==sLsigned_fixnum)    if (x==sLnegative_fixnum || x==sLsigned_fixnum)
515      return make_fixnum(aet_fix);      return make_fixnum(aet_fix);
516    return make_fixnum(aet_object);    return make_fixnum(aet_object);

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

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