@@ -194,6 +194,22 @@ static void finalize_slots_definition(class_t* klass, accessor); dfsch_define_method(env, value, method); + } else if(dfsch_compare_symbol(keyword, "reader")){ + dfsch_object_t* accessor = + dfsch__make_slot_reader_for_slot(klass, slot); + dfsch_method_t* method = + dfsch_make_method(accessor, NULL, dfsch_cons(klass, NULL), + accessor); + dfsch_define_method(env, value, method); + + } else if(dfsch_compare_symbol(keyword, "write")){ + dfsch_object_t* accessor = + dfsch__make_slot_writer_for_slot(klass, slot); + dfsch_method_t* method = + dfsch_make_method(accessor, NULL, dfsch_cons(klass, NULL), + accessor); + dfsch_define_method(env, value, method); + } else if(dfsch_compare_symbol(keyword, "initform")){ klass->initvalues = dfsch_cons(dfsch_list(2, dfsch_eval(value, env), src/object.c @@ -359,7 +359,7 @@ static dfsch_object_t* slot_writer_apply(slot_accessor_t* sa, dfsch_object_t* instance; dfsch_object_t* value; DFSCH_OBJECT_ARG(args, instance); - DFSCH_OBJECT_ARG(args, value, DFSCH_INVALID_OBJECT); + DFSCH_OBJECT_ARG(args, value); DFSCH_ARG_END(args); instance = DFSCH_ASSERT_INSTANCE(instance, sa->instance_class); src/types.c eace1291850f274f80976e5dec6d2be17ab4f401 Ales Hakl ales@hakl.net http://github.com/adh/dfsch/commit/0f97a9517a34bf13ce5d80f9e1f75d2ded5d956f 0f97a9517a34bf13ce5d80f9e1f75d2ded5d956f 2009-11-15T18:12:31-08:00 2009-11-15T18:12:31-08:00 allow definition of reader and writer methods in define-class 23ed4892ed7a57ad02dfbf7f7394eacadf9d5df2 Ales Hakl ales@hakl.net