chiark / gitweb /
Add a boundp-function slot, which is required by virtual slot getter.
authorRupert Swarbrick <rswarbrick@gmail.com>
Wed, 29 Feb 2012 16:39:30 +0000 (16:39 +0000)
committerRupert Swarbrick <rswarbrick@gmail.com>
Wed, 29 Feb 2012 17:41:54 +0000 (17:41 +0000)
See vsc-slot-x-using-class in virtual-slots.lisp for where it's used.

gffi/virtual-slots.lisp

index 22a6af3..ef2208c 100644 (file)
@@ -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)