Lines Matching refs:lst
17 (let ((getter (let search-get ((lst slot))
18 (if (null? lst)
20 (if (eq? (car lst) ':swig-get)
21 (cadr lst)
22 (search-get (cdr lst))))))
23 (setter (let search-set ((lst slot))
24 (if (null? lst)
26 (if (eq? (car lst) ':swig-set)
27 (cadr lst)
28 (search-set (cdr lst)))))))
