/[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.30 by camm, Sat Jul 24 13:14:29 2004 UTC revision 1.31 by camm, Wed Aug 25 22:48:24 2004 UTC
# Line 462  DEFUN_NEW("GET-AELTTYPE",object,fSget_ae Line 462  DEFUN_NEW("GET-AELTTYPE",object,fSget_ae
462        return make_fixnum((enum aelttype) i);        return make_fixnum((enum aelttype) i);
463    if (x == sLlong_float || x == sLsingle_float || x == sLdouble_float)    if (x == sLlong_float || x == sLsingle_float || x == sLdouble_float)
464      return make_fixnum(aet_lf);      return make_fixnum(aet_lf);
465      if (x==sLpositive_char)
466        return make_fixnum(aet_char);
467      if (x==sLpositive_short)
468        return make_fixnum(aet_short);
469      if (x==sLpositive_fixnum)
470        return make_fixnum(aet_fix);
471    return make_fixnum(aet_object);    return make_fixnum(aet_object);
472  }  }
473  #ifdef STATIC_FUNCTION_POINTERS  #ifdef STATIC_FUNCTION_POINTERS

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

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