Add a boundp-function slot, which is required by virtual slot getter.

[clg] / gffi / virtual-slots.lisp

diff --git a/gffi/virtual-slots.lisp b/gffi/virtual-slots.lisp
index 22a6af3ae3159725c5aad35a73931d8b71a59660..ef2208c0292a367c4cbbe312e20b671b475d49f4 100644 (file)
--- a/gffi/virtual-slots.lisp
+++ b/gffi/virtual-slots.lisp
@@ -47,6 +47,7 @@ (defclass effective-virtual-slot-definition (standard-effective-slot-definition)
    #+clisp(writer-function)
    #+clisp(boundp-function)
    makunbound-function
+   boundp-function
    #+clisp(type :initarg :type :reader slot-definition-type)))
 
 (defclass direct-special-slot-definition (standard-direct-slot-definition)