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

Diff of /gcl/cmpnew/gcl_cmptop.lsp

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

revision 1.1.2.4.6.2 by camm, Thu Aug 5 22:18:26 2004 UTC revision 1.1.2.4.6.2.4.1 by camm, Fri May 6 17:12:46 2005 UTC
# Line 1484  Line 1484 
1484  (defun t3defcfun (header vs-size body &aux fd)  (defun t3defcfun (header vs-size body &aux fd)
1485    (wt-comment "C function defined by " 'defcfun)    (wt-comment "C function defined by " 'defcfun)
1486    (wt-nl1 header)    (wt-nl1 header)
1487      (wt-h header ";")
1488    (wt-nl1 "{")    (wt-nl1 "{")
1489    (wt-nl1 "object *vs=vs_top;")    (wt-nl1 "object *vs=vs_top;")
1490    (wt-nl1 "object *old_top=vs_top+" vs-size ";")    (wt-nl1 "object *old_top=vs_top+" vs-size ";")

Legend:
Removed from v.1.1.2.4.6.2  
changed lines
  Added in v.1.1.2.4.6.2.4.1

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