97 |
(si:putprop 'make-dclosure 'wt-make-dclosure 'wt-loc) |
(si:putprop 'make-dclosure 'wt-make-dclosure 'wt-loc) |
98 |
|
|
99 |
(defun wt-make-dclosure (cfun clink)clink ;;Dbase=base0 |
(defun wt-make-dclosure (cfun clink)clink ;;Dbase=base0 |
100 |
(wt-nl "(DownClose"cfun".t=t_dclosure,DownClose" cfun ".dc_self=LC" cfun"," |
(wt-nl "(set_type_of(&DownClose"cfun",t_dclosure),DownClose" cfun ".dc_self=LC" cfun"," |
101 |
"DownClose" cfun ".dc_env=base0,(object)&DownClose" cfun ")")) |
"DownClose" cfun ".dc_env=base0,(object)&DownClose" cfun ")")) |
102 |
|
|
103 |
(defun wfs-error () |
(defun wfs-error () |