/*
 * call-seq:
 *   class.has_singleton? => true or false
 *
 * Return true if this object has a singleton class.
 */
VALUE has_singleton(VALUE self)
{
  return FL_TEST(RBASIC(self)->klass, FL_SINGLETON) ? Qtrue : Qfalse;
}