/[gcl]/gcl/cmpnew/gcl_cmplam.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmplam.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by camm, Fri Jan 7 17:58:33 2005 UTC revision 1.10 by camm, Fri Jun 10 15:13:53 2005 UTC
# Line 97  Line 97 
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 ()

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26