From 5d055f65bd6af390ea5d0e3e95e4f3d6577d7759 Mon Sep 17 00:00:00 2001 Message-Id: <5d055f65bd6af390ea5d0e3e95e4f3d6577d7759.1715464100.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 2 Jan 2007 16:06:15 +0000 Subject: [PATCH] Added missing support for foreign function names in virtual slot setters for interface classes Organization: Straylight/Edgeware From: espen --- glib/ginterface.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/glib/ginterface.lisp b/glib/ginterface.lisp index 6083654..a212fa5 100644 --- a/glib/ginterface.lisp +++ b/glib/ginterface.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: ginterface.lisp,v 1.18 2006-04-26 21:00:22 espen Exp $ +;; $Id: ginterface.lisp,v 1.19 2007-01-02 16:06:15 espen Exp $ (in-package "GLIB") @@ -41,11 +41,13 @@ (defclass interface-class (virtual-slots-class) (defmethod direct-slot-definition-class ((class interface-class) &rest initargs) (case (getf initargs :allocation) (:property (find-class 'direct-property-slot-definition)) + (:virtual (find-class 'direct-virtual-alien-slot-definition)) (t (call-next-method)))) (defmethod effective-slot-definition-class ((class interface-class) &rest initargs) (case (getf initargs :allocation) (:property (find-class 'effective-property-slot-definition)) + (:virtual (find-class 'effective-virtual-alien-slot-definition)) (t (call-next-method)))) (defmethod compute-effective-slot-definition-initargs ((class interface-class) direct-slotds) -- [mdw]