>From 5f1d36475883316a1830596302dd26172a86d9d7 Mon Sep 17 00:00:00 2001 From: Mark H Weaver
Date: Sat, 12 Feb 2011 05:43:17 -0500 Subject: [PATCH 9/9] Allow GOOPS getters to add methods to primitive generics * module/oop/goops.scm (ensure-generic): If the old definition of a desired getter is a primitive generic, let the new method be added to it instead of creating a fresh new generic. (ensure-accessor): Modify as necessary to keep the old behavior. Maybe something more optimal can be done here, but it's not yet obvious to me how to do it. --- module/oop/goops.scm | 8 ++++++-- 1 files changed, 6 insertions(+), 2 deletions(-) diff --git a/module/oop/goops.scm b/module/oop/goops.scm index 70bf375..2801aa2 100644 --- a/module/oop/goops.scm +++ b/module/oop/goops.scm @@ -391,7 +391,8 @@ #:default (procedure old-definition) #:setter (setter old-definition))) ((procedure? old-definition) - (make