Lines Matching full:swig
1 (declare (hide swig-initialize))
3 (define (swig-initialize obj initargs create)
4 (slot-set! obj 'swig-this
5 (if (memq 'swig-this initargs)
9 (slot-ref ret 'swig-this)
12 (define-class <swig-metaclass-$module> (<class>) (void))
14 (define-method (compute-getter-and-setter (class <swig-metaclass-$module>) slot allocator)
15 (if (not (memq ':swig-virtual slot))
20 (if (eq? (car lst) ':swig-get)
26 (if (eq? (car lst) ':swig-set)
30 (lambda (o) (getter (slot-ref o 'swig-this)))
31 (lambda (o new) (setter (slot-ref o 'swig-this) new) new)))))
