nendo 0.3.3 → 0.3.4

Sign up to get free protection for your applications and to get access to all the features.
Files changed (25) hide show
  1. data/bin/nendo +2 -2
  2. data/emacs/nendo-mode.el +126 -0
  3. data/example/KyotoCabinet/kcbench.rb +20 -0
  4. data/example/KyotoCabinet/kcbench1.nnd +29 -0
  5. data/example/KyotoCabinet/kcbench2.nnd +30 -0
  6. data/example/KyotoCabinet/kcbench3.nnd +31 -0
  7. data/example/export-lisp-functions.rb +20 -0
  8. data/example/scratch.nnd +8 -17
  9. data/example/tak_ruby_version.rb +14 -0
  10. data/lib/debug/syslog.nndc +1 -1
  11. data/lib/init.nnd +334 -202
  12. data/lib/init.nndc +5691 -4128
  13. data/lib/nendo/test.nnd +165 -0
  14. data/lib/nendo/test.nndc +1635 -0
  15. data/lib/nendo.rb +248 -37
  16. data/lib/srfi-1.nnd +15 -24
  17. data/lib/srfi-1.nndc +1247 -1607
  18. data/lib/text/html-lite.nnd +1 -1
  19. data/lib/text/html-lite.nndc +171 -171
  20. data/lib/text/tree.nndc +2 -2
  21. data/test/nendo_spec.rb +1281 -981
  22. data/test/nendo_util.nnd +98 -0
  23. data/test/srfi-1-test.nnd +28 -0
  24. data/test/textlib.nnd +24 -0
  25. metadata +13 -3
data/lib/text/html-lite.nndc CHANGED
@@ -5,7 +5,7 @@
5
5
 
6
6
  trampCall(
7
7
  begin
8
- def self._html_MIMARKescape_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
8
+ def self._html_MIMARKescape_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
9
9
  @global_lisp_binding['_html_MIMARKescape'] = self.method( :_html_MIMARKescape_METHOD )
10
10
  @_html_MIMARKescape =
11
11
  trampCall(
@@ -195,7 +195,7 @@ trampCall(
195
195
 
196
196
  trampCall(
197
197
  begin
198
- def self._html_MIMARKescape_MIMARKstring_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
198
+ def self._html_MIMARKescape_MIMARKstring_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
199
199
  @global_lisp_binding['_html_MIMARKescape_MIMARKstring'] = self.method( :_html_MIMARKescape_MIMARKstring_METHOD )
200
200
  @_html_MIMARKescape_MIMARKstring =
201
201
  trampCall(
@@ -231,7 +231,7 @@ trampCall(
231
231
  end ,
232
232
  Cell.new(
233
233
  begin
234
- trampCall(_string).split(
234
+ trampCall(_string).to_s.split(
235
235
  ""
236
236
  )
237
237
  rescue => __e ; __e.set_backtrace( ["./lib/text/html-lite.nnd:52"] + __e.backtrace ) ; raise __e
@@ -248,7 +248,7 @@ trampCall(
248
248
 
249
249
  trampCall(
250
250
  begin
251
- def self.__ASMARKdoctype_MIMARKalist_ASMARK_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
251
+ def self.__ASMARKdoctype_MIMARKalist_ASMARK_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
252
252
  @global_lisp_binding['__ASMARKdoctype_MIMARKalist_ASMARK'] = self.method( :__ASMARKdoctype_MIMARKalist_ASMARK_METHOD )
253
253
  @__ASMARKdoctype_MIMARKalist_ASMARK =
254
254
  trampCall(
@@ -274,7 +274,7 @@ trampCall(
274
274
 
275
275
  trampCall(
276
276
  begin
277
- def self._html_MIMARKdoctype_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
277
+ def self._html_MIMARKdoctype_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
278
278
  @global_lisp_binding['_html_MIMARKdoctype'] = self.method( :_html_MIMARKdoctype_METHOD )
279
279
  @_html_MIMARKdoctype =
280
280
  trampCall(
@@ -283,7 +283,7 @@ trampCall(
283
283
  ___lambda = lambda { |_type|
284
284
  if (
285
285
  begin
286
- def self.___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
286
+ def self.___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
287
287
  @global_lisp_binding['___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034'] = self.method( :___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034_METHOD )
288
288
  @___gensym__7421c160c97efe3fa4b72b1f1f8b235cd6625c27_20034 =
289
289
  trampCall(
@@ -397,7 +397,7 @@ trampCall(
397
397
 
398
398
  trampCall(
399
399
  begin
400
- def self._make_MIMARKhtml_MIMARKelement_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
400
+ def self._make_MIMARKhtml_MIMARKelement_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
401
401
  @global_lisp_binding['_make_MIMARKhtml_MIMARKelement'] = self.method( :_make_MIMARKhtml_MIMARKelement_METHOD )
402
402
  @_make_MIMARKhtml_MIMARKelement =
403
403
  trampCall(
@@ -1018,7 +1018,7 @@ trampCall(
1018
1018
 
1019
1019
  trampCall(
1020
1020
  begin
1021
- def self._define_MIMARKhtml_MIMARKelements_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1021
+ def self._define_MIMARKhtml_MIMARKelements_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1022
1022
  @global_lisp_binding['_define_MIMARKhtml_MIMARKelements'] = self.method( :_define_MIMARKhtml_MIMARKelements_METHOD )
1023
1023
  @_define_MIMARKhtml_MIMARKelements =
1024
1024
  trampCall(
@@ -1526,7 +1526,7 @@ trampCall(
1526
1526
  ))))
1527
1527
  end
1528
1528
  else
1529
- Nil.new
1529
+ Cell.new()
1530
1530
  end
1531
1531
  end
1532
1532
  end
@@ -1560,7 +1560,7 @@ trampCall(
1560
1560
  trampCall(
1561
1561
  begin
1562
1562
  begin
1563
- def self._html_COMARKtt_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1563
+ def self._html_COMARKtt_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1564
1564
  @global_lisp_binding['_html_COMARKtt'] = self.method( :_html_COMARKtt_METHOD )
1565
1565
  @_html_COMARKtt =
1566
1566
  trampCall(
@@ -1568,7 +1568,7 @@ trampCall(
1568
1568
  )
1569
1569
  end
1570
1570
  begin
1571
- def self._html_COMARKtt_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1571
+ def self._html_COMARKtt_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1572
1572
  @global_lisp_binding['_html_COMARKtt'] = self.method( :_html_COMARKtt_METHOD )
1573
1573
  @_html_COMARKtt =
1574
1574
  trampCall(
@@ -1585,7 +1585,7 @@ trampCall(
1585
1585
  )
1586
1586
  end
1587
1587
  begin
1588
- def self._html_COMARKi_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1588
+ def self._html_COMARKi_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1589
1589
  @global_lisp_binding['_html_COMARKi'] = self.method( :_html_COMARKi_METHOD )
1590
1590
  @_html_COMARKi =
1591
1591
  trampCall(
@@ -1593,7 +1593,7 @@ trampCall(
1593
1593
  )
1594
1594
  end
1595
1595
  begin
1596
- def self._html_COMARKi_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1596
+ def self._html_COMARKi_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1597
1597
  @global_lisp_binding['_html_COMARKi'] = self.method( :_html_COMARKi_METHOD )
1598
1598
  @_html_COMARKi =
1599
1599
  trampCall(
@@ -1610,7 +1610,7 @@ trampCall(
1610
1610
  )
1611
1611
  end
1612
1612
  begin
1613
- def self._html_COMARKb_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1613
+ def self._html_COMARKb_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1614
1614
  @global_lisp_binding['_html_COMARKb'] = self.method( :_html_COMARKb_METHOD )
1615
1615
  @_html_COMARKb =
1616
1616
  trampCall(
@@ -1618,7 +1618,7 @@ trampCall(
1618
1618
  )
1619
1619
  end
1620
1620
  begin
1621
- def self._html_COMARKb_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1621
+ def self._html_COMARKb_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1622
1622
  @global_lisp_binding['_html_COMARKb'] = self.method( :_html_COMARKb_METHOD )
1623
1623
  @_html_COMARKb =
1624
1624
  trampCall(
@@ -1635,7 +1635,7 @@ trampCall(
1635
1635
  )
1636
1636
  end
1637
1637
  begin
1638
- def self._html_COMARKbig_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1638
+ def self._html_COMARKbig_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1639
1639
  @global_lisp_binding['_html_COMARKbig'] = self.method( :_html_COMARKbig_METHOD )
1640
1640
  @_html_COMARKbig =
1641
1641
  trampCall(
@@ -1643,7 +1643,7 @@ trampCall(
1643
1643
  )
1644
1644
  end
1645
1645
  begin
1646
- def self._html_COMARKbig_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1646
+ def self._html_COMARKbig_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1647
1647
  @global_lisp_binding['_html_COMARKbig'] = self.method( :_html_COMARKbig_METHOD )
1648
1648
  @_html_COMARKbig =
1649
1649
  trampCall(
@@ -1660,7 +1660,7 @@ trampCall(
1660
1660
  )
1661
1661
  end
1662
1662
  begin
1663
- def self._html_COMARKsmall_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1663
+ def self._html_COMARKsmall_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1664
1664
  @global_lisp_binding['_html_COMARKsmall'] = self.method( :_html_COMARKsmall_METHOD )
1665
1665
  @_html_COMARKsmall =
1666
1666
  trampCall(
@@ -1668,7 +1668,7 @@ trampCall(
1668
1668
  )
1669
1669
  end
1670
1670
  begin
1671
- def self._html_COMARKsmall_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1671
+ def self._html_COMARKsmall_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1672
1672
  @global_lisp_binding['_html_COMARKsmall'] = self.method( :_html_COMARKsmall_METHOD )
1673
1673
  @_html_COMARKsmall =
1674
1674
  trampCall(
@@ -1691,7 +1691,7 @@ trampCall(
1691
1691
  trampCall(
1692
1692
  begin
1693
1693
  begin
1694
- def self._html_COMARKem_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1694
+ def self._html_COMARKem_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1695
1695
  @global_lisp_binding['_html_COMARKem'] = self.method( :_html_COMARKem_METHOD )
1696
1696
  @_html_COMARKem =
1697
1697
  trampCall(
@@ -1699,7 +1699,7 @@ trampCall(
1699
1699
  )
1700
1700
  end
1701
1701
  begin
1702
- def self._html_COMARKem_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1702
+ def self._html_COMARKem_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1703
1703
  @global_lisp_binding['_html_COMARKem'] = self.method( :_html_COMARKem_METHOD )
1704
1704
  @_html_COMARKem =
1705
1705
  trampCall(
@@ -1716,7 +1716,7 @@ trampCall(
1716
1716
  )
1717
1717
  end
1718
1718
  begin
1719
- def self._html_COMARKstrong_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1719
+ def self._html_COMARKstrong_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1720
1720
  @global_lisp_binding['_html_COMARKstrong'] = self.method( :_html_COMARKstrong_METHOD )
1721
1721
  @_html_COMARKstrong =
1722
1722
  trampCall(
@@ -1724,7 +1724,7 @@ trampCall(
1724
1724
  )
1725
1725
  end
1726
1726
  begin
1727
- def self._html_COMARKstrong_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1727
+ def self._html_COMARKstrong_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1728
1728
  @global_lisp_binding['_html_COMARKstrong'] = self.method( :_html_COMARKstrong_METHOD )
1729
1729
  @_html_COMARKstrong =
1730
1730
  trampCall(
@@ -1741,7 +1741,7 @@ trampCall(
1741
1741
  )
1742
1742
  end
1743
1743
  begin
1744
- def self._html_COMARKdfn_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1744
+ def self._html_COMARKdfn_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1745
1745
  @global_lisp_binding['_html_COMARKdfn'] = self.method( :_html_COMARKdfn_METHOD )
1746
1746
  @_html_COMARKdfn =
1747
1747
  trampCall(
@@ -1749,7 +1749,7 @@ trampCall(
1749
1749
  )
1750
1750
  end
1751
1751
  begin
1752
- def self._html_COMARKdfn_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1752
+ def self._html_COMARKdfn_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1753
1753
  @global_lisp_binding['_html_COMARKdfn'] = self.method( :_html_COMARKdfn_METHOD )
1754
1754
  @_html_COMARKdfn =
1755
1755
  trampCall(
@@ -1766,7 +1766,7 @@ trampCall(
1766
1766
  )
1767
1767
  end
1768
1768
  begin
1769
- def self._html_COMARKcode_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1769
+ def self._html_COMARKcode_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1770
1770
  @global_lisp_binding['_html_COMARKcode'] = self.method( :_html_COMARKcode_METHOD )
1771
1771
  @_html_COMARKcode =
1772
1772
  trampCall(
@@ -1774,7 +1774,7 @@ trampCall(
1774
1774
  )
1775
1775
  end
1776
1776
  begin
1777
- def self._html_COMARKcode_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1777
+ def self._html_COMARKcode_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1778
1778
  @global_lisp_binding['_html_COMARKcode'] = self.method( :_html_COMARKcode_METHOD )
1779
1779
  @_html_COMARKcode =
1780
1780
  trampCall(
@@ -1791,7 +1791,7 @@ trampCall(
1791
1791
  )
1792
1792
  end
1793
1793
  begin
1794
- def self._html_COMARKsamp_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1794
+ def self._html_COMARKsamp_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1795
1795
  @global_lisp_binding['_html_COMARKsamp'] = self.method( :_html_COMARKsamp_METHOD )
1796
1796
  @_html_COMARKsamp =
1797
1797
  trampCall(
@@ -1799,7 +1799,7 @@ trampCall(
1799
1799
  )
1800
1800
  end
1801
1801
  begin
1802
- def self._html_COMARKsamp_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1802
+ def self._html_COMARKsamp_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1803
1803
  @global_lisp_binding['_html_COMARKsamp'] = self.method( :_html_COMARKsamp_METHOD )
1804
1804
  @_html_COMARKsamp =
1805
1805
  trampCall(
@@ -1816,7 +1816,7 @@ trampCall(
1816
1816
  )
1817
1817
  end
1818
1818
  begin
1819
- def self._html_COMARKkbd_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1819
+ def self._html_COMARKkbd_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1820
1820
  @global_lisp_binding['_html_COMARKkbd'] = self.method( :_html_COMARKkbd_METHOD )
1821
1821
  @_html_COMARKkbd =
1822
1822
  trampCall(
@@ -1824,7 +1824,7 @@ trampCall(
1824
1824
  )
1825
1825
  end
1826
1826
  begin
1827
- def self._html_COMARKkbd_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1827
+ def self._html_COMARKkbd_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1828
1828
  @global_lisp_binding['_html_COMARKkbd'] = self.method( :_html_COMARKkbd_METHOD )
1829
1829
  @_html_COMARKkbd =
1830
1830
  trampCall(
@@ -1841,7 +1841,7 @@ trampCall(
1841
1841
  )
1842
1842
  end
1843
1843
  begin
1844
- def self._html_COMARKvar_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1844
+ def self._html_COMARKvar_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1845
1845
  @global_lisp_binding['_html_COMARKvar'] = self.method( :_html_COMARKvar_METHOD )
1846
1846
  @_html_COMARKvar =
1847
1847
  trampCall(
@@ -1849,7 +1849,7 @@ trampCall(
1849
1849
  )
1850
1850
  end
1851
1851
  begin
1852
- def self._html_COMARKvar_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1852
+ def self._html_COMARKvar_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1853
1853
  @global_lisp_binding['_html_COMARKvar'] = self.method( :_html_COMARKvar_METHOD )
1854
1854
  @_html_COMARKvar =
1855
1855
  trampCall(
@@ -1866,7 +1866,7 @@ trampCall(
1866
1866
  )
1867
1867
  end
1868
1868
  begin
1869
- def self._html_COMARKcite_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1869
+ def self._html_COMARKcite_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1870
1870
  @global_lisp_binding['_html_COMARKcite'] = self.method( :_html_COMARKcite_METHOD )
1871
1871
  @_html_COMARKcite =
1872
1872
  trampCall(
@@ -1874,7 +1874,7 @@ trampCall(
1874
1874
  )
1875
1875
  end
1876
1876
  begin
1877
- def self._html_COMARKcite_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1877
+ def self._html_COMARKcite_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1878
1878
  @global_lisp_binding['_html_COMARKcite'] = self.method( :_html_COMARKcite_METHOD )
1879
1879
  @_html_COMARKcite =
1880
1880
  trampCall(
@@ -1891,7 +1891,7 @@ trampCall(
1891
1891
  )
1892
1892
  end
1893
1893
  begin
1894
- def self._html_COMARKabbr_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1894
+ def self._html_COMARKabbr_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1895
1895
  @global_lisp_binding['_html_COMARKabbr'] = self.method( :_html_COMARKabbr_METHOD )
1896
1896
  @_html_COMARKabbr =
1897
1897
  trampCall(
@@ -1899,7 +1899,7 @@ trampCall(
1899
1899
  )
1900
1900
  end
1901
1901
  begin
1902
- def self._html_COMARKabbr_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1902
+ def self._html_COMARKabbr_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1903
1903
  @global_lisp_binding['_html_COMARKabbr'] = self.method( :_html_COMARKabbr_METHOD )
1904
1904
  @_html_COMARKabbr =
1905
1905
  trampCall(
@@ -1916,7 +1916,7 @@ trampCall(
1916
1916
  )
1917
1917
  end
1918
1918
  begin
1919
- def self._html_COMARKacronym_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1919
+ def self._html_COMARKacronym_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1920
1920
  @global_lisp_binding['_html_COMARKacronym'] = self.method( :_html_COMARKacronym_METHOD )
1921
1921
  @_html_COMARKacronym =
1922
1922
  trampCall(
@@ -1924,7 +1924,7 @@ trampCall(
1924
1924
  )
1925
1925
  end
1926
1926
  begin
1927
- def self._html_COMARKacronym_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1927
+ def self._html_COMARKacronym_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1928
1928
  @global_lisp_binding['_html_COMARKacronym'] = self.method( :_html_COMARKacronym_METHOD )
1929
1929
  @_html_COMARKacronym =
1930
1930
  trampCall(
@@ -1947,7 +1947,7 @@ trampCall(
1947
1947
  trampCall(
1948
1948
  begin
1949
1949
  begin
1950
- def self._html_COMARKsub_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1950
+ def self._html_COMARKsub_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1951
1951
  @global_lisp_binding['_html_COMARKsub'] = self.method( :_html_COMARKsub_METHOD )
1952
1952
  @_html_COMARKsub =
1953
1953
  trampCall(
@@ -1955,7 +1955,7 @@ trampCall(
1955
1955
  )
1956
1956
  end
1957
1957
  begin
1958
- def self._html_COMARKsub_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1958
+ def self._html_COMARKsub_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1959
1959
  @global_lisp_binding['_html_COMARKsub'] = self.method( :_html_COMARKsub_METHOD )
1960
1960
  @_html_COMARKsub =
1961
1961
  trampCall(
@@ -1972,7 +1972,7 @@ trampCall(
1972
1972
  )
1973
1973
  end
1974
1974
  begin
1975
- def self._html_COMARKsup_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1975
+ def self._html_COMARKsup_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1976
1976
  @global_lisp_binding['_html_COMARKsup'] = self.method( :_html_COMARKsup_METHOD )
1977
1977
  @_html_COMARKsup =
1978
1978
  trampCall(
@@ -1980,7 +1980,7 @@ trampCall(
1980
1980
  )
1981
1981
  end
1982
1982
  begin
1983
- def self._html_COMARKsup_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
1983
+ def self._html_COMARKsup_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
1984
1984
  @global_lisp_binding['_html_COMARKsup'] = self.method( :_html_COMARKsup_METHOD )
1985
1985
  @_html_COMARKsup =
1986
1986
  trampCall(
@@ -1997,7 +1997,7 @@ trampCall(
1997
1997
  )
1998
1998
  end
1999
1999
  begin
2000
- def self._html_COMARKspan_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2000
+ def self._html_COMARKspan_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2001
2001
  @global_lisp_binding['_html_COMARKspan'] = self.method( :_html_COMARKspan_METHOD )
2002
2002
  @_html_COMARKspan =
2003
2003
  trampCall(
@@ -2005,7 +2005,7 @@ trampCall(
2005
2005
  )
2006
2006
  end
2007
2007
  begin
2008
- def self._html_COMARKspan_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2008
+ def self._html_COMARKspan_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2009
2009
  @global_lisp_binding['_html_COMARKspan'] = self.method( :_html_COMARKspan_METHOD )
2010
2010
  @_html_COMARKspan =
2011
2011
  trampCall(
@@ -2022,7 +2022,7 @@ trampCall(
2022
2022
  )
2023
2023
  end
2024
2024
  begin
2025
- def self._html_COMARKbdo_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2025
+ def self._html_COMARKbdo_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2026
2026
  @global_lisp_binding['_html_COMARKbdo'] = self.method( :_html_COMARKbdo_METHOD )
2027
2027
  @_html_COMARKbdo =
2028
2028
  trampCall(
@@ -2030,7 +2030,7 @@ trampCall(
2030
2030
  )
2031
2031
  end
2032
2032
  begin
2033
- def self._html_COMARKbdo_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2033
+ def self._html_COMARKbdo_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2034
2034
  @global_lisp_binding['_html_COMARKbdo'] = self.method( :_html_COMARKbdo_METHOD )
2035
2035
  @_html_COMARKbdo =
2036
2036
  trampCall(
@@ -2047,7 +2047,7 @@ trampCall(
2047
2047
  )
2048
2048
  end
2049
2049
  begin
2050
- def self._html_COMARKbr_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2050
+ def self._html_COMARKbr_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2051
2051
  @global_lisp_binding['_html_COMARKbr'] = self.method( :_html_COMARKbr_METHOD )
2052
2052
  @_html_COMARKbr =
2053
2053
  trampCall(
@@ -2055,7 +2055,7 @@ trampCall(
2055
2055
  )
2056
2056
  end
2057
2057
  begin
2058
- def self._html_COMARKbr_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2058
+ def self._html_COMARKbr_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2059
2059
  @global_lisp_binding['_html_COMARKbr'] = self.method( :_html_COMARKbr_METHOD )
2060
2060
  @_html_COMARKbr =
2061
2061
  trampCall(
@@ -2080,7 +2080,7 @@ trampCall(
2080
2080
  trampCall(
2081
2081
  begin
2082
2082
  begin
2083
- def self._html_COMARKbody_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2083
+ def self._html_COMARKbody_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2084
2084
  @global_lisp_binding['_html_COMARKbody'] = self.method( :_html_COMARKbody_METHOD )
2085
2085
  @_html_COMARKbody =
2086
2086
  trampCall(
@@ -2088,7 +2088,7 @@ trampCall(
2088
2088
  )
2089
2089
  end
2090
2090
  begin
2091
- def self._html_COMARKbody_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2091
+ def self._html_COMARKbody_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2092
2092
  @global_lisp_binding['_html_COMARKbody'] = self.method( :_html_COMARKbody_METHOD )
2093
2093
  @_html_COMARKbody =
2094
2094
  trampCall(
@@ -2105,7 +2105,7 @@ trampCall(
2105
2105
  )
2106
2106
  end
2107
2107
  begin
2108
- def self._html_COMARKaddress_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2108
+ def self._html_COMARKaddress_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2109
2109
  @global_lisp_binding['_html_COMARKaddress'] = self.method( :_html_COMARKaddress_METHOD )
2110
2110
  @_html_COMARKaddress =
2111
2111
  trampCall(
@@ -2113,7 +2113,7 @@ trampCall(
2113
2113
  )
2114
2114
  end
2115
2115
  begin
2116
- def self._html_COMARKaddress_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2116
+ def self._html_COMARKaddress_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2117
2117
  @global_lisp_binding['_html_COMARKaddress'] = self.method( :_html_COMARKaddress_METHOD )
2118
2118
  @_html_COMARKaddress =
2119
2119
  trampCall(
@@ -2130,7 +2130,7 @@ trampCall(
2130
2130
  )
2131
2131
  end
2132
2132
  begin
2133
- def self._html_COMARKdiv_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2133
+ def self._html_COMARKdiv_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2134
2134
  @global_lisp_binding['_html_COMARKdiv'] = self.method( :_html_COMARKdiv_METHOD )
2135
2135
  @_html_COMARKdiv =
2136
2136
  trampCall(
@@ -2138,7 +2138,7 @@ trampCall(
2138
2138
  )
2139
2139
  end
2140
2140
  begin
2141
- def self._html_COMARKdiv_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2141
+ def self._html_COMARKdiv_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2142
2142
  @global_lisp_binding['_html_COMARKdiv'] = self.method( :_html_COMARKdiv_METHOD )
2143
2143
  @_html_COMARKdiv =
2144
2144
  trampCall(
@@ -2161,7 +2161,7 @@ trampCall(
2161
2161
  trampCall(
2162
2162
  begin
2163
2163
  begin
2164
- def self._html_COMARKa_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2164
+ def self._html_COMARKa_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2165
2165
  @global_lisp_binding['_html_COMARKa'] = self.method( :_html_COMARKa_METHOD )
2166
2166
  @_html_COMARKa =
2167
2167
  trampCall(
@@ -2169,7 +2169,7 @@ trampCall(
2169
2169
  )
2170
2170
  end
2171
2171
  begin
2172
- def self._html_COMARKa_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2172
+ def self._html_COMARKa_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2173
2173
  @global_lisp_binding['_html_COMARKa'] = self.method( :_html_COMARKa_METHOD )
2174
2174
  @_html_COMARKa =
2175
2175
  trampCall(
@@ -2192,7 +2192,7 @@ trampCall(
2192
2192
  trampCall(
2193
2193
  begin
2194
2194
  begin
2195
- def self._html_COMARKmap_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2195
+ def self._html_COMARKmap_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2196
2196
  @global_lisp_binding['_html_COMARKmap'] = self.method( :_html_COMARKmap_METHOD )
2197
2197
  @_html_COMARKmap =
2198
2198
  trampCall(
@@ -2200,7 +2200,7 @@ trampCall(
2200
2200
  )
2201
2201
  end
2202
2202
  begin
2203
- def self._html_COMARKmap_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2203
+ def self._html_COMARKmap_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2204
2204
  @global_lisp_binding['_html_COMARKmap'] = self.method( :_html_COMARKmap_METHOD )
2205
2205
  @_html_COMARKmap =
2206
2206
  trampCall(
@@ -2217,7 +2217,7 @@ trampCall(
2217
2217
  )
2218
2218
  end
2219
2219
  begin
2220
- def self._html_COMARKarea_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2220
+ def self._html_COMARKarea_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2221
2221
  @global_lisp_binding['_html_COMARKarea'] = self.method( :_html_COMARKarea_METHOD )
2222
2222
  @_html_COMARKarea =
2223
2223
  trampCall(
@@ -2225,7 +2225,7 @@ trampCall(
2225
2225
  )
2226
2226
  end
2227
2227
  begin
2228
- def self._html_COMARKarea_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2228
+ def self._html_COMARKarea_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2229
2229
  @global_lisp_binding['_html_COMARKarea'] = self.method( :_html_COMARKarea_METHOD )
2230
2230
  @_html_COMARKarea =
2231
2231
  trampCall(
@@ -2250,7 +2250,7 @@ trampCall(
2250
2250
  trampCall(
2251
2251
  begin
2252
2252
  begin
2253
- def self._html_COMARKlink_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2253
+ def self._html_COMARKlink_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2254
2254
  @global_lisp_binding['_html_COMARKlink'] = self.method( :_html_COMARKlink_METHOD )
2255
2255
  @_html_COMARKlink =
2256
2256
  trampCall(
@@ -2258,7 +2258,7 @@ trampCall(
2258
2258
  )
2259
2259
  end
2260
2260
  begin
2261
- def self._html_COMARKlink_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2261
+ def self._html_COMARKlink_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2262
2262
  @global_lisp_binding['_html_COMARKlink'] = self.method( :_html_COMARKlink_METHOD )
2263
2263
  @_html_COMARKlink =
2264
2264
  trampCall(
@@ -2283,7 +2283,7 @@ trampCall(
2283
2283
  trampCall(
2284
2284
  begin
2285
2285
  begin
2286
- def self._html_COMARKimg_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2286
+ def self._html_COMARKimg_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2287
2287
  @global_lisp_binding['_html_COMARKimg'] = self.method( :_html_COMARKimg_METHOD )
2288
2288
  @_html_COMARKimg =
2289
2289
  trampCall(
@@ -2291,7 +2291,7 @@ trampCall(
2291
2291
  )
2292
2292
  end
2293
2293
  begin
2294
- def self._html_COMARKimg_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2294
+ def self._html_COMARKimg_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2295
2295
  @global_lisp_binding['_html_COMARKimg'] = self.method( :_html_COMARKimg_METHOD )
2296
2296
  @_html_COMARKimg =
2297
2297
  trampCall(
@@ -2316,7 +2316,7 @@ trampCall(
2316
2316
  trampCall(
2317
2317
  begin
2318
2318
  begin
2319
- def self._html_COMARKobject_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2319
+ def self._html_COMARKobject_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2320
2320
  @global_lisp_binding['_html_COMARKobject'] = self.method( :_html_COMARKobject_METHOD )
2321
2321
  @_html_COMARKobject =
2322
2322
  trampCall(
@@ -2324,7 +2324,7 @@ trampCall(
2324
2324
  )
2325
2325
  end
2326
2326
  begin
2327
- def self._html_COMARKobject_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2327
+ def self._html_COMARKobject_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2328
2328
  @global_lisp_binding['_html_COMARKobject'] = self.method( :_html_COMARKobject_METHOD )
2329
2329
  @_html_COMARKobject =
2330
2330
  trampCall(
@@ -2341,7 +2341,7 @@ trampCall(
2341
2341
  )
2342
2342
  end
2343
2343
  begin
2344
- def self._html_COMARKparam_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2344
+ def self._html_COMARKparam_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2345
2345
  @global_lisp_binding['_html_COMARKparam'] = self.method( :_html_COMARKparam_METHOD )
2346
2346
  @_html_COMARKparam =
2347
2347
  trampCall(
@@ -2349,7 +2349,7 @@ trampCall(
2349
2349
  )
2350
2350
  end
2351
2351
  begin
2352
- def self._html_COMARKparam_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2352
+ def self._html_COMARKparam_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2353
2353
  @global_lisp_binding['_html_COMARKparam'] = self.method( :_html_COMARKparam_METHOD )
2354
2354
  @_html_COMARKparam =
2355
2355
  trampCall(
@@ -2374,7 +2374,7 @@ trampCall(
2374
2374
  trampCall(
2375
2375
  begin
2376
2376
  begin
2377
- def self._html_COMARKhr_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2377
+ def self._html_COMARKhr_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2378
2378
  @global_lisp_binding['_html_COMARKhr'] = self.method( :_html_COMARKhr_METHOD )
2379
2379
  @_html_COMARKhr =
2380
2380
  trampCall(
@@ -2382,7 +2382,7 @@ trampCall(
2382
2382
  )
2383
2383
  end
2384
2384
  begin
2385
- def self._html_COMARKhr_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2385
+ def self._html_COMARKhr_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2386
2386
  @global_lisp_binding['_html_COMARKhr'] = self.method( :_html_COMARKhr_METHOD )
2387
2387
  @_html_COMARKhr =
2388
2388
  trampCall(
@@ -2407,7 +2407,7 @@ trampCall(
2407
2407
  trampCall(
2408
2408
  begin
2409
2409
  begin
2410
- def self._html_COMARKp_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2410
+ def self._html_COMARKp_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2411
2411
  @global_lisp_binding['_html_COMARKp'] = self.method( :_html_COMARKp_METHOD )
2412
2412
  @_html_COMARKp =
2413
2413
  trampCall(
@@ -2415,7 +2415,7 @@ trampCall(
2415
2415
  )
2416
2416
  end
2417
2417
  begin
2418
- def self._html_COMARKp_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2418
+ def self._html_COMARKp_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2419
2419
  @global_lisp_binding['_html_COMARKp'] = self.method( :_html_COMARKp_METHOD )
2420
2420
  @_html_COMARKp =
2421
2421
  trampCall(
@@ -2438,7 +2438,7 @@ trampCall(
2438
2438
  trampCall(
2439
2439
  begin
2440
2440
  begin
2441
- def self._html_COMARKh1_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2441
+ def self._html_COMARKh1_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2442
2442
  @global_lisp_binding['_html_COMARKh1'] = self.method( :_html_COMARKh1_METHOD )
2443
2443
  @_html_COMARKh1 =
2444
2444
  trampCall(
@@ -2446,7 +2446,7 @@ trampCall(
2446
2446
  )
2447
2447
  end
2448
2448
  begin
2449
- def self._html_COMARKh1_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2449
+ def self._html_COMARKh1_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2450
2450
  @global_lisp_binding['_html_COMARKh1'] = self.method( :_html_COMARKh1_METHOD )
2451
2451
  @_html_COMARKh1 =
2452
2452
  trampCall(
@@ -2463,7 +2463,7 @@ trampCall(
2463
2463
  )
2464
2464
  end
2465
2465
  begin
2466
- def self._html_COMARKh2_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2466
+ def self._html_COMARKh2_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2467
2467
  @global_lisp_binding['_html_COMARKh2'] = self.method( :_html_COMARKh2_METHOD )
2468
2468
  @_html_COMARKh2 =
2469
2469
  trampCall(
@@ -2471,7 +2471,7 @@ trampCall(
2471
2471
  )
2472
2472
  end
2473
2473
  begin
2474
- def self._html_COMARKh2_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2474
+ def self._html_COMARKh2_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2475
2475
  @global_lisp_binding['_html_COMARKh2'] = self.method( :_html_COMARKh2_METHOD )
2476
2476
  @_html_COMARKh2 =
2477
2477
  trampCall(
@@ -2488,7 +2488,7 @@ trampCall(
2488
2488
  )
2489
2489
  end
2490
2490
  begin
2491
- def self._html_COMARKh3_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2491
+ def self._html_COMARKh3_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2492
2492
  @global_lisp_binding['_html_COMARKh3'] = self.method( :_html_COMARKh3_METHOD )
2493
2493
  @_html_COMARKh3 =
2494
2494
  trampCall(
@@ -2496,7 +2496,7 @@ trampCall(
2496
2496
  )
2497
2497
  end
2498
2498
  begin
2499
- def self._html_COMARKh3_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2499
+ def self._html_COMARKh3_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2500
2500
  @global_lisp_binding['_html_COMARKh3'] = self.method( :_html_COMARKh3_METHOD )
2501
2501
  @_html_COMARKh3 =
2502
2502
  trampCall(
@@ -2513,7 +2513,7 @@ trampCall(
2513
2513
  )
2514
2514
  end
2515
2515
  begin
2516
- def self._html_COMARKh4_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2516
+ def self._html_COMARKh4_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2517
2517
  @global_lisp_binding['_html_COMARKh4'] = self.method( :_html_COMARKh4_METHOD )
2518
2518
  @_html_COMARKh4 =
2519
2519
  trampCall(
@@ -2521,7 +2521,7 @@ trampCall(
2521
2521
  )
2522
2522
  end
2523
2523
  begin
2524
- def self._html_COMARKh4_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2524
+ def self._html_COMARKh4_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2525
2525
  @global_lisp_binding['_html_COMARKh4'] = self.method( :_html_COMARKh4_METHOD )
2526
2526
  @_html_COMARKh4 =
2527
2527
  trampCall(
@@ -2538,7 +2538,7 @@ trampCall(
2538
2538
  )
2539
2539
  end
2540
2540
  begin
2541
- def self._html_COMARKh5_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2541
+ def self._html_COMARKh5_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2542
2542
  @global_lisp_binding['_html_COMARKh5'] = self.method( :_html_COMARKh5_METHOD )
2543
2543
  @_html_COMARKh5 =
2544
2544
  trampCall(
@@ -2546,7 +2546,7 @@ trampCall(
2546
2546
  )
2547
2547
  end
2548
2548
  begin
2549
- def self._html_COMARKh5_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2549
+ def self._html_COMARKh5_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2550
2550
  @global_lisp_binding['_html_COMARKh5'] = self.method( :_html_COMARKh5_METHOD )
2551
2551
  @_html_COMARKh5 =
2552
2552
  trampCall(
@@ -2563,7 +2563,7 @@ trampCall(
2563
2563
  )
2564
2564
  end
2565
2565
  begin
2566
- def self._html_COMARKh6_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2566
+ def self._html_COMARKh6_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2567
2567
  @global_lisp_binding['_html_COMARKh6'] = self.method( :_html_COMARKh6_METHOD )
2568
2568
  @_html_COMARKh6 =
2569
2569
  trampCall(
@@ -2571,7 +2571,7 @@ trampCall(
2571
2571
  )
2572
2572
  end
2573
2573
  begin
2574
- def self._html_COMARKh6_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2574
+ def self._html_COMARKh6_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2575
2575
  @global_lisp_binding['_html_COMARKh6'] = self.method( :_html_COMARKh6_METHOD )
2576
2576
  @_html_COMARKh6 =
2577
2577
  trampCall(
@@ -2594,7 +2594,7 @@ trampCall(
2594
2594
  trampCall(
2595
2595
  begin
2596
2596
  begin
2597
- def self._html_COMARKpre_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2597
+ def self._html_COMARKpre_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2598
2598
  @global_lisp_binding['_html_COMARKpre'] = self.method( :_html_COMARKpre_METHOD )
2599
2599
  @_html_COMARKpre =
2600
2600
  trampCall(
@@ -2602,7 +2602,7 @@ trampCall(
2602
2602
  )
2603
2603
  end
2604
2604
  begin
2605
- def self._html_COMARKpre_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2605
+ def self._html_COMARKpre_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2606
2606
  @global_lisp_binding['_html_COMARKpre'] = self.method( :_html_COMARKpre_METHOD )
2607
2607
  @_html_COMARKpre =
2608
2608
  trampCall(
@@ -2625,7 +2625,7 @@ trampCall(
2625
2625
  trampCall(
2626
2626
  begin
2627
2627
  begin
2628
- def self._html_COMARKq_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2628
+ def self._html_COMARKq_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2629
2629
  @global_lisp_binding['_html_COMARKq'] = self.method( :_html_COMARKq_METHOD )
2630
2630
  @_html_COMARKq =
2631
2631
  trampCall(
@@ -2633,7 +2633,7 @@ trampCall(
2633
2633
  )
2634
2634
  end
2635
2635
  begin
2636
- def self._html_COMARKq_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2636
+ def self._html_COMARKq_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2637
2637
  @global_lisp_binding['_html_COMARKq'] = self.method( :_html_COMARKq_METHOD )
2638
2638
  @_html_COMARKq =
2639
2639
  trampCall(
@@ -2656,7 +2656,7 @@ trampCall(
2656
2656
  trampCall(
2657
2657
  begin
2658
2658
  begin
2659
- def self._html_COMARKblockquote_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2659
+ def self._html_COMARKblockquote_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2660
2660
  @global_lisp_binding['_html_COMARKblockquote'] = self.method( :_html_COMARKblockquote_METHOD )
2661
2661
  @_html_COMARKblockquote =
2662
2662
  trampCall(
@@ -2664,7 +2664,7 @@ trampCall(
2664
2664
  )
2665
2665
  end
2666
2666
  begin
2667
- def self._html_COMARKblockquote_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2667
+ def self._html_COMARKblockquote_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2668
2668
  @global_lisp_binding['_html_COMARKblockquote'] = self.method( :_html_COMARKblockquote_METHOD )
2669
2669
  @_html_COMARKblockquote =
2670
2670
  trampCall(
@@ -2687,7 +2687,7 @@ trampCall(
2687
2687
  trampCall(
2688
2688
  begin
2689
2689
  begin
2690
- def self._html_COMARKins_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2690
+ def self._html_COMARKins_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2691
2691
  @global_lisp_binding['_html_COMARKins'] = self.method( :_html_COMARKins_METHOD )
2692
2692
  @_html_COMARKins =
2693
2693
  trampCall(
@@ -2695,7 +2695,7 @@ trampCall(
2695
2695
  )
2696
2696
  end
2697
2697
  begin
2698
- def self._html_COMARKins_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2698
+ def self._html_COMARKins_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2699
2699
  @global_lisp_binding['_html_COMARKins'] = self.method( :_html_COMARKins_METHOD )
2700
2700
  @_html_COMARKins =
2701
2701
  trampCall(
@@ -2712,7 +2712,7 @@ trampCall(
2712
2712
  )
2713
2713
  end
2714
2714
  begin
2715
- def self._html_COMARKdel_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2715
+ def self._html_COMARKdel_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2716
2716
  @global_lisp_binding['_html_COMARKdel'] = self.method( :_html_COMARKdel_METHOD )
2717
2717
  @_html_COMARKdel =
2718
2718
  trampCall(
@@ -2720,7 +2720,7 @@ trampCall(
2720
2720
  )
2721
2721
  end
2722
2722
  begin
2723
- def self._html_COMARKdel_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2723
+ def self._html_COMARKdel_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2724
2724
  @global_lisp_binding['_html_COMARKdel'] = self.method( :_html_COMARKdel_METHOD )
2725
2725
  @_html_COMARKdel =
2726
2726
  trampCall(
@@ -2743,7 +2743,7 @@ trampCall(
2743
2743
  trampCall(
2744
2744
  begin
2745
2745
  begin
2746
- def self._html_COMARKdl_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2746
+ def self._html_COMARKdl_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2747
2747
  @global_lisp_binding['_html_COMARKdl'] = self.method( :_html_COMARKdl_METHOD )
2748
2748
  @_html_COMARKdl =
2749
2749
  trampCall(
@@ -2751,7 +2751,7 @@ trampCall(
2751
2751
  )
2752
2752
  end
2753
2753
  begin
2754
- def self._html_COMARKdl_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2754
+ def self._html_COMARKdl_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2755
2755
  @global_lisp_binding['_html_COMARKdl'] = self.method( :_html_COMARKdl_METHOD )
2756
2756
  @_html_COMARKdl =
2757
2757
  trampCall(
@@ -2768,7 +2768,7 @@ trampCall(
2768
2768
  )
2769
2769
  end
2770
2770
  begin
2771
- def self._html_COMARKdt_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2771
+ def self._html_COMARKdt_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2772
2772
  @global_lisp_binding['_html_COMARKdt'] = self.method( :_html_COMARKdt_METHOD )
2773
2773
  @_html_COMARKdt =
2774
2774
  trampCall(
@@ -2776,7 +2776,7 @@ trampCall(
2776
2776
  )
2777
2777
  end
2778
2778
  begin
2779
- def self._html_COMARKdt_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2779
+ def self._html_COMARKdt_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2780
2780
  @global_lisp_binding['_html_COMARKdt'] = self.method( :_html_COMARKdt_METHOD )
2781
2781
  @_html_COMARKdt =
2782
2782
  trampCall(
@@ -2793,7 +2793,7 @@ trampCall(
2793
2793
  )
2794
2794
  end
2795
2795
  begin
2796
- def self._html_COMARKdd_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2796
+ def self._html_COMARKdd_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2797
2797
  @global_lisp_binding['_html_COMARKdd'] = self.method( :_html_COMARKdd_METHOD )
2798
2798
  @_html_COMARKdd =
2799
2799
  trampCall(
@@ -2801,7 +2801,7 @@ trampCall(
2801
2801
  )
2802
2802
  end
2803
2803
  begin
2804
- def self._html_COMARKdd_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2804
+ def self._html_COMARKdd_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2805
2805
  @global_lisp_binding['_html_COMARKdd'] = self.method( :_html_COMARKdd_METHOD )
2806
2806
  @_html_COMARKdd =
2807
2807
  trampCall(
@@ -2818,7 +2818,7 @@ trampCall(
2818
2818
  )
2819
2819
  end
2820
2820
  begin
2821
- def self._html_COMARKol_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2821
+ def self._html_COMARKol_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2822
2822
  @global_lisp_binding['_html_COMARKol'] = self.method( :_html_COMARKol_METHOD )
2823
2823
  @_html_COMARKol =
2824
2824
  trampCall(
@@ -2826,7 +2826,7 @@ trampCall(
2826
2826
  )
2827
2827
  end
2828
2828
  begin
2829
- def self._html_COMARKol_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2829
+ def self._html_COMARKol_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2830
2830
  @global_lisp_binding['_html_COMARKol'] = self.method( :_html_COMARKol_METHOD )
2831
2831
  @_html_COMARKol =
2832
2832
  trampCall(
@@ -2843,7 +2843,7 @@ trampCall(
2843
2843
  )
2844
2844
  end
2845
2845
  begin
2846
- def self._html_COMARKul_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2846
+ def self._html_COMARKul_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2847
2847
  @global_lisp_binding['_html_COMARKul'] = self.method( :_html_COMARKul_METHOD )
2848
2848
  @_html_COMARKul =
2849
2849
  trampCall(
@@ -2851,7 +2851,7 @@ trampCall(
2851
2851
  )
2852
2852
  end
2853
2853
  begin
2854
- def self._html_COMARKul_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2854
+ def self._html_COMARKul_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2855
2855
  @global_lisp_binding['_html_COMARKul'] = self.method( :_html_COMARKul_METHOD )
2856
2856
  @_html_COMARKul =
2857
2857
  trampCall(
@@ -2868,7 +2868,7 @@ trampCall(
2868
2868
  )
2869
2869
  end
2870
2870
  begin
2871
- def self._html_COMARKli_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2871
+ def self._html_COMARKli_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2872
2872
  @global_lisp_binding['_html_COMARKli'] = self.method( :_html_COMARKli_METHOD )
2873
2873
  @_html_COMARKli =
2874
2874
  trampCall(
@@ -2876,7 +2876,7 @@ trampCall(
2876
2876
  )
2877
2877
  end
2878
2878
  begin
2879
- def self._html_COMARKli_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2879
+ def self._html_COMARKli_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2880
2880
  @global_lisp_binding['_html_COMARKli'] = self.method( :_html_COMARKli_METHOD )
2881
2881
  @_html_COMARKli =
2882
2882
  trampCall(
@@ -2899,7 +2899,7 @@ trampCall(
2899
2899
  trampCall(
2900
2900
  begin
2901
2901
  begin
2902
- def self._html_COMARKform_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2902
+ def self._html_COMARKform_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2903
2903
  @global_lisp_binding['_html_COMARKform'] = self.method( :_html_COMARKform_METHOD )
2904
2904
  @_html_COMARKform =
2905
2905
  trampCall(
@@ -2907,7 +2907,7 @@ trampCall(
2907
2907
  )
2908
2908
  end
2909
2909
  begin
2910
- def self._html_COMARKform_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2910
+ def self._html_COMARKform_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2911
2911
  @global_lisp_binding['_html_COMARKform'] = self.method( :_html_COMARKform_METHOD )
2912
2912
  @_html_COMARKform =
2913
2913
  trampCall(
@@ -2924,7 +2924,7 @@ trampCall(
2924
2924
  )
2925
2925
  end
2926
2926
  begin
2927
- def self._html_COMARKlabel_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2927
+ def self._html_COMARKlabel_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2928
2928
  @global_lisp_binding['_html_COMARKlabel'] = self.method( :_html_COMARKlabel_METHOD )
2929
2929
  @_html_COMARKlabel =
2930
2930
  trampCall(
@@ -2932,7 +2932,7 @@ trampCall(
2932
2932
  )
2933
2933
  end
2934
2934
  begin
2935
- def self._html_COMARKlabel_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2935
+ def self._html_COMARKlabel_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2936
2936
  @global_lisp_binding['_html_COMARKlabel'] = self.method( :_html_COMARKlabel_METHOD )
2937
2937
  @_html_COMARKlabel =
2938
2938
  trampCall(
@@ -2949,7 +2949,7 @@ trampCall(
2949
2949
  )
2950
2950
  end
2951
2951
  begin
2952
- def self._html_COMARKinput_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2952
+ def self._html_COMARKinput_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2953
2953
  @global_lisp_binding['_html_COMARKinput'] = self.method( :_html_COMARKinput_METHOD )
2954
2954
  @_html_COMARKinput =
2955
2955
  trampCall(
@@ -2957,7 +2957,7 @@ trampCall(
2957
2957
  )
2958
2958
  end
2959
2959
  begin
2960
- def self._html_COMARKinput_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2960
+ def self._html_COMARKinput_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2961
2961
  @global_lisp_binding['_html_COMARKinput'] = self.method( :_html_COMARKinput_METHOD )
2962
2962
  @_html_COMARKinput =
2963
2963
  trampCall(
@@ -2976,7 +2976,7 @@ trampCall(
2976
2976
  )
2977
2977
  end
2978
2978
  begin
2979
- def self._html_COMARKselect_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2979
+ def self._html_COMARKselect_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2980
2980
  @global_lisp_binding['_html_COMARKselect'] = self.method( :_html_COMARKselect_METHOD )
2981
2981
  @_html_COMARKselect =
2982
2982
  trampCall(
@@ -2984,7 +2984,7 @@ trampCall(
2984
2984
  )
2985
2985
  end
2986
2986
  begin
2987
- def self._html_COMARKselect_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
2987
+ def self._html_COMARKselect_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
2988
2988
  @global_lisp_binding['_html_COMARKselect'] = self.method( :_html_COMARKselect_METHOD )
2989
2989
  @_html_COMARKselect =
2990
2990
  trampCall(
@@ -3001,7 +3001,7 @@ trampCall(
3001
3001
  )
3002
3002
  end
3003
3003
  begin
3004
- def self._html_COMARKoptgroup_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3004
+ def self._html_COMARKoptgroup_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3005
3005
  @global_lisp_binding['_html_COMARKoptgroup'] = self.method( :_html_COMARKoptgroup_METHOD )
3006
3006
  @_html_COMARKoptgroup =
3007
3007
  trampCall(
@@ -3009,7 +3009,7 @@ trampCall(
3009
3009
  )
3010
3010
  end
3011
3011
  begin
3012
- def self._html_COMARKoptgroup_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3012
+ def self._html_COMARKoptgroup_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3013
3013
  @global_lisp_binding['_html_COMARKoptgroup'] = self.method( :_html_COMARKoptgroup_METHOD )
3014
3014
  @_html_COMARKoptgroup =
3015
3015
  trampCall(
@@ -3026,7 +3026,7 @@ trampCall(
3026
3026
  )
3027
3027
  end
3028
3028
  begin
3029
- def self._html_COMARKoption_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3029
+ def self._html_COMARKoption_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3030
3030
  @global_lisp_binding['_html_COMARKoption'] = self.method( :_html_COMARKoption_METHOD )
3031
3031
  @_html_COMARKoption =
3032
3032
  trampCall(
@@ -3034,7 +3034,7 @@ trampCall(
3034
3034
  )
3035
3035
  end
3036
3036
  begin
3037
- def self._html_COMARKoption_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3037
+ def self._html_COMARKoption_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3038
3038
  @global_lisp_binding['_html_COMARKoption'] = self.method( :_html_COMARKoption_METHOD )
3039
3039
  @_html_COMARKoption =
3040
3040
  trampCall(
@@ -3051,7 +3051,7 @@ trampCall(
3051
3051
  )
3052
3052
  end
3053
3053
  begin
3054
- def self._html_COMARKtextarea_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3054
+ def self._html_COMARKtextarea_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3055
3055
  @global_lisp_binding['_html_COMARKtextarea'] = self.method( :_html_COMARKtextarea_METHOD )
3056
3056
  @_html_COMARKtextarea =
3057
3057
  trampCall(
@@ -3059,7 +3059,7 @@ trampCall(
3059
3059
  )
3060
3060
  end
3061
3061
  begin
3062
- def self._html_COMARKtextarea_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3062
+ def self._html_COMARKtextarea_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3063
3063
  @global_lisp_binding['_html_COMARKtextarea'] = self.method( :_html_COMARKtextarea_METHOD )
3064
3064
  @_html_COMARKtextarea =
3065
3065
  trampCall(
@@ -3076,7 +3076,7 @@ trampCall(
3076
3076
  )
3077
3077
  end
3078
3078
  begin
3079
- def self._html_COMARKfieldset_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3079
+ def self._html_COMARKfieldset_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3080
3080
  @global_lisp_binding['_html_COMARKfieldset'] = self.method( :_html_COMARKfieldset_METHOD )
3081
3081
  @_html_COMARKfieldset =
3082
3082
  trampCall(
@@ -3084,7 +3084,7 @@ trampCall(
3084
3084
  )
3085
3085
  end
3086
3086
  begin
3087
- def self._html_COMARKfieldset_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3087
+ def self._html_COMARKfieldset_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3088
3088
  @global_lisp_binding['_html_COMARKfieldset'] = self.method( :_html_COMARKfieldset_METHOD )
3089
3089
  @_html_COMARKfieldset =
3090
3090
  trampCall(
@@ -3101,7 +3101,7 @@ trampCall(
3101
3101
  )
3102
3102
  end
3103
3103
  begin
3104
- def self._html_COMARKlegend_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3104
+ def self._html_COMARKlegend_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3105
3105
  @global_lisp_binding['_html_COMARKlegend'] = self.method( :_html_COMARKlegend_METHOD )
3106
3106
  @_html_COMARKlegend =
3107
3107
  trampCall(
@@ -3109,7 +3109,7 @@ trampCall(
3109
3109
  )
3110
3110
  end
3111
3111
  begin
3112
- def self._html_COMARKlegend_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3112
+ def self._html_COMARKlegend_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3113
3113
  @global_lisp_binding['_html_COMARKlegend'] = self.method( :_html_COMARKlegend_METHOD )
3114
3114
  @_html_COMARKlegend =
3115
3115
  trampCall(
@@ -3126,7 +3126,7 @@ trampCall(
3126
3126
  )
3127
3127
  end
3128
3128
  begin
3129
- def self._html_COMARKbutton_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3129
+ def self._html_COMARKbutton_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3130
3130
  @global_lisp_binding['_html_COMARKbutton'] = self.method( :_html_COMARKbutton_METHOD )
3131
3131
  @_html_COMARKbutton =
3132
3132
  trampCall(
@@ -3134,7 +3134,7 @@ trampCall(
3134
3134
  )
3135
3135
  end
3136
3136
  begin
3137
- def self._html_COMARKbutton_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3137
+ def self._html_COMARKbutton_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3138
3138
  @global_lisp_binding['_html_COMARKbutton'] = self.method( :_html_COMARKbutton_METHOD )
3139
3139
  @_html_COMARKbutton =
3140
3140
  trampCall(
@@ -3157,7 +3157,7 @@ trampCall(
3157
3157
  trampCall(
3158
3158
  begin
3159
3159
  begin
3160
- def self._html_COMARKtable_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3160
+ def self._html_COMARKtable_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3161
3161
  @global_lisp_binding['_html_COMARKtable'] = self.method( :_html_COMARKtable_METHOD )
3162
3162
  @_html_COMARKtable =
3163
3163
  trampCall(
@@ -3165,7 +3165,7 @@ trampCall(
3165
3165
  )
3166
3166
  end
3167
3167
  begin
3168
- def self._html_COMARKtable_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3168
+ def self._html_COMARKtable_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3169
3169
  @global_lisp_binding['_html_COMARKtable'] = self.method( :_html_COMARKtable_METHOD )
3170
3170
  @_html_COMARKtable =
3171
3171
  trampCall(
@@ -3182,7 +3182,7 @@ trampCall(
3182
3182
  )
3183
3183
  end
3184
3184
  begin
3185
- def self._html_COMARKcaption_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3185
+ def self._html_COMARKcaption_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3186
3186
  @global_lisp_binding['_html_COMARKcaption'] = self.method( :_html_COMARKcaption_METHOD )
3187
3187
  @_html_COMARKcaption =
3188
3188
  trampCall(
@@ -3190,7 +3190,7 @@ trampCall(
3190
3190
  )
3191
3191
  end
3192
3192
  begin
3193
- def self._html_COMARKcaption_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3193
+ def self._html_COMARKcaption_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3194
3194
  @global_lisp_binding['_html_COMARKcaption'] = self.method( :_html_COMARKcaption_METHOD )
3195
3195
  @_html_COMARKcaption =
3196
3196
  trampCall(
@@ -3207,7 +3207,7 @@ trampCall(
3207
3207
  )
3208
3208
  end
3209
3209
  begin
3210
- def self._html_COMARKthead_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3210
+ def self._html_COMARKthead_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3211
3211
  @global_lisp_binding['_html_COMARKthead'] = self.method( :_html_COMARKthead_METHOD )
3212
3212
  @_html_COMARKthead =
3213
3213
  trampCall(
@@ -3215,7 +3215,7 @@ trampCall(
3215
3215
  )
3216
3216
  end
3217
3217
  begin
3218
- def self._html_COMARKthead_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3218
+ def self._html_COMARKthead_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3219
3219
  @global_lisp_binding['_html_COMARKthead'] = self.method( :_html_COMARKthead_METHOD )
3220
3220
  @_html_COMARKthead =
3221
3221
  trampCall(
@@ -3232,7 +3232,7 @@ trampCall(
3232
3232
  )
3233
3233
  end
3234
3234
  begin
3235
- def self._html_COMARKtfoot_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3235
+ def self._html_COMARKtfoot_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3236
3236
  @global_lisp_binding['_html_COMARKtfoot'] = self.method( :_html_COMARKtfoot_METHOD )
3237
3237
  @_html_COMARKtfoot =
3238
3238
  trampCall(
@@ -3240,7 +3240,7 @@ trampCall(
3240
3240
  )
3241
3241
  end
3242
3242
  begin
3243
- def self._html_COMARKtfoot_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3243
+ def self._html_COMARKtfoot_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3244
3244
  @global_lisp_binding['_html_COMARKtfoot'] = self.method( :_html_COMARKtfoot_METHOD )
3245
3245
  @_html_COMARKtfoot =
3246
3246
  trampCall(
@@ -3257,7 +3257,7 @@ trampCall(
3257
3257
  )
3258
3258
  end
3259
3259
  begin
3260
- def self._html_COMARKtbody_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3260
+ def self._html_COMARKtbody_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3261
3261
  @global_lisp_binding['_html_COMARKtbody'] = self.method( :_html_COMARKtbody_METHOD )
3262
3262
  @_html_COMARKtbody =
3263
3263
  trampCall(
@@ -3265,7 +3265,7 @@ trampCall(
3265
3265
  )
3266
3266
  end
3267
3267
  begin
3268
- def self._html_COMARKtbody_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3268
+ def self._html_COMARKtbody_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3269
3269
  @global_lisp_binding['_html_COMARKtbody'] = self.method( :_html_COMARKtbody_METHOD )
3270
3270
  @_html_COMARKtbody =
3271
3271
  trampCall(
@@ -3282,7 +3282,7 @@ trampCall(
3282
3282
  )
3283
3283
  end
3284
3284
  begin
3285
- def self._html_COMARKcolgroup_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3285
+ def self._html_COMARKcolgroup_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3286
3286
  @global_lisp_binding['_html_COMARKcolgroup'] = self.method( :_html_COMARKcolgroup_METHOD )
3287
3287
  @_html_COMARKcolgroup =
3288
3288
  trampCall(
@@ -3290,7 +3290,7 @@ trampCall(
3290
3290
  )
3291
3291
  end
3292
3292
  begin
3293
- def self._html_COMARKcolgroup_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3293
+ def self._html_COMARKcolgroup_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3294
3294
  @global_lisp_binding['_html_COMARKcolgroup'] = self.method( :_html_COMARKcolgroup_METHOD )
3295
3295
  @_html_COMARKcolgroup =
3296
3296
  trampCall(
@@ -3307,7 +3307,7 @@ trampCall(
3307
3307
  )
3308
3308
  end
3309
3309
  begin
3310
- def self._html_COMARKcol_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3310
+ def self._html_COMARKcol_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3311
3311
  @global_lisp_binding['_html_COMARKcol'] = self.method( :_html_COMARKcol_METHOD )
3312
3312
  @_html_COMARKcol =
3313
3313
  trampCall(
@@ -3315,7 +3315,7 @@ trampCall(
3315
3315
  )
3316
3316
  end
3317
3317
  begin
3318
- def self._html_COMARKcol_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3318
+ def self._html_COMARKcol_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3319
3319
  @global_lisp_binding['_html_COMARKcol'] = self.method( :_html_COMARKcol_METHOD )
3320
3320
  @_html_COMARKcol =
3321
3321
  trampCall(
@@ -3334,7 +3334,7 @@ trampCall(
3334
3334
  )
3335
3335
  end
3336
3336
  begin
3337
- def self._html_COMARKtr_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3337
+ def self._html_COMARKtr_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3338
3338
  @global_lisp_binding['_html_COMARKtr'] = self.method( :_html_COMARKtr_METHOD )
3339
3339
  @_html_COMARKtr =
3340
3340
  trampCall(
@@ -3342,7 +3342,7 @@ trampCall(
3342
3342
  )
3343
3343
  end
3344
3344
  begin
3345
- def self._html_COMARKtr_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3345
+ def self._html_COMARKtr_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3346
3346
  @global_lisp_binding['_html_COMARKtr'] = self.method( :_html_COMARKtr_METHOD )
3347
3347
  @_html_COMARKtr =
3348
3348
  trampCall(
@@ -3359,7 +3359,7 @@ trampCall(
3359
3359
  )
3360
3360
  end
3361
3361
  begin
3362
- def self._html_COMARKth_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3362
+ def self._html_COMARKth_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3363
3363
  @global_lisp_binding['_html_COMARKth'] = self.method( :_html_COMARKth_METHOD )
3364
3364
  @_html_COMARKth =
3365
3365
  trampCall(
@@ -3367,7 +3367,7 @@ trampCall(
3367
3367
  )
3368
3368
  end
3369
3369
  begin
3370
- def self._html_COMARKth_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3370
+ def self._html_COMARKth_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3371
3371
  @global_lisp_binding['_html_COMARKth'] = self.method( :_html_COMARKth_METHOD )
3372
3372
  @_html_COMARKth =
3373
3373
  trampCall(
@@ -3384,7 +3384,7 @@ trampCall(
3384
3384
  )
3385
3385
  end
3386
3386
  begin
3387
- def self._html_COMARKtd_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3387
+ def self._html_COMARKtd_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3388
3388
  @global_lisp_binding['_html_COMARKtd'] = self.method( :_html_COMARKtd_METHOD )
3389
3389
  @_html_COMARKtd =
3390
3390
  trampCall(
@@ -3392,7 +3392,7 @@ trampCall(
3392
3392
  )
3393
3393
  end
3394
3394
  begin
3395
- def self._html_COMARKtd_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3395
+ def self._html_COMARKtd_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3396
3396
  @global_lisp_binding['_html_COMARKtd'] = self.method( :_html_COMARKtd_METHOD )
3397
3397
  @_html_COMARKtd =
3398
3398
  trampCall(
@@ -3415,7 +3415,7 @@ trampCall(
3415
3415
  trampCall(
3416
3416
  begin
3417
3417
  begin
3418
- def self._html_COMARKhead_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3418
+ def self._html_COMARKhead_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3419
3419
  @global_lisp_binding['_html_COMARKhead'] = self.method( :_html_COMARKhead_METHOD )
3420
3420
  @_html_COMARKhead =
3421
3421
  trampCall(
@@ -3423,7 +3423,7 @@ trampCall(
3423
3423
  )
3424
3424
  end
3425
3425
  begin
3426
- def self._html_COMARKhead_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3426
+ def self._html_COMARKhead_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3427
3427
  @global_lisp_binding['_html_COMARKhead'] = self.method( :_html_COMARKhead_METHOD )
3428
3428
  @_html_COMARKhead =
3429
3429
  trampCall(
@@ -3440,7 +3440,7 @@ trampCall(
3440
3440
  )
3441
3441
  end
3442
3442
  begin
3443
- def self._html_COMARKtitle_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3443
+ def self._html_COMARKtitle_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3444
3444
  @global_lisp_binding['_html_COMARKtitle'] = self.method( :_html_COMARKtitle_METHOD )
3445
3445
  @_html_COMARKtitle =
3446
3446
  trampCall(
@@ -3448,7 +3448,7 @@ trampCall(
3448
3448
  )
3449
3449
  end
3450
3450
  begin
3451
- def self._html_COMARKtitle_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3451
+ def self._html_COMARKtitle_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3452
3452
  @global_lisp_binding['_html_COMARKtitle'] = self.method( :_html_COMARKtitle_METHOD )
3453
3453
  @_html_COMARKtitle =
3454
3454
  trampCall(
@@ -3465,7 +3465,7 @@ trampCall(
3465
3465
  )
3466
3466
  end
3467
3467
  begin
3468
- def self._html_COMARKbase_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3468
+ def self._html_COMARKbase_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3469
3469
  @global_lisp_binding['_html_COMARKbase'] = self.method( :_html_COMARKbase_METHOD )
3470
3470
  @_html_COMARKbase =
3471
3471
  trampCall(
@@ -3473,7 +3473,7 @@ trampCall(
3473
3473
  )
3474
3474
  end
3475
3475
  begin
3476
- def self._html_COMARKbase_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3476
+ def self._html_COMARKbase_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3477
3477
  @global_lisp_binding['_html_COMARKbase'] = self.method( :_html_COMARKbase_METHOD )
3478
3478
  @_html_COMARKbase =
3479
3479
  trampCall(
@@ -3492,7 +3492,7 @@ trampCall(
3492
3492
  )
3493
3493
  end
3494
3494
  begin
3495
- def self._html_COMARKmeta_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3495
+ def self._html_COMARKmeta_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3496
3496
  @global_lisp_binding['_html_COMARKmeta'] = self.method( :_html_COMARKmeta_METHOD )
3497
3497
  @_html_COMARKmeta =
3498
3498
  trampCall(
@@ -3500,7 +3500,7 @@ trampCall(
3500
3500
  )
3501
3501
  end
3502
3502
  begin
3503
- def self._html_COMARKmeta_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3503
+ def self._html_COMARKmeta_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3504
3504
  @global_lisp_binding['_html_COMARKmeta'] = self.method( :_html_COMARKmeta_METHOD )
3505
3505
  @_html_COMARKmeta =
3506
3506
  trampCall(
@@ -3519,7 +3519,7 @@ trampCall(
3519
3519
  )
3520
3520
  end
3521
3521
  begin
3522
- def self._html_COMARKstyle_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3522
+ def self._html_COMARKstyle_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3523
3523
  @global_lisp_binding['_html_COMARKstyle'] = self.method( :_html_COMARKstyle_METHOD )
3524
3524
  @_html_COMARKstyle =
3525
3525
  trampCall(
@@ -3527,7 +3527,7 @@ trampCall(
3527
3527
  )
3528
3528
  end
3529
3529
  begin
3530
- def self._html_COMARKstyle_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3530
+ def self._html_COMARKstyle_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3531
3531
  @global_lisp_binding['_html_COMARKstyle'] = self.method( :_html_COMARKstyle_METHOD )
3532
3532
  @_html_COMARKstyle =
3533
3533
  trampCall(
@@ -3544,7 +3544,7 @@ trampCall(
3544
3544
  )
3545
3545
  end
3546
3546
  begin
3547
- def self._html_COMARKscript_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3547
+ def self._html_COMARKscript_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3548
3548
  @global_lisp_binding['_html_COMARKscript'] = self.method( :_html_COMARKscript_METHOD )
3549
3549
  @_html_COMARKscript =
3550
3550
  trampCall(
@@ -3552,7 +3552,7 @@ trampCall(
3552
3552
  )
3553
3553
  end
3554
3554
  begin
3555
- def self._html_COMARKscript_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3555
+ def self._html_COMARKscript_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3556
3556
  @global_lisp_binding['_html_COMARKscript'] = self.method( :_html_COMARKscript_METHOD )
3557
3557
  @_html_COMARKscript =
3558
3558
  trampCall(
@@ -3569,7 +3569,7 @@ trampCall(
3569
3569
  )
3570
3570
  end
3571
3571
  begin
3572
- def self._html_COMARKnoscript_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3572
+ def self._html_COMARKnoscript_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3573
3573
  @global_lisp_binding['_html_COMARKnoscript'] = self.method( :_html_COMARKnoscript_METHOD )
3574
3574
  @_html_COMARKnoscript =
3575
3575
  trampCall(
@@ -3577,7 +3577,7 @@ trampCall(
3577
3577
  )
3578
3578
  end
3579
3579
  begin
3580
- def self._html_COMARKnoscript_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3580
+ def self._html_COMARKnoscript_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3581
3581
  @global_lisp_binding['_html_COMARKnoscript'] = self.method( :_html_COMARKnoscript_METHOD )
3582
3582
  @_html_COMARKnoscript =
3583
3583
  trampCall(
@@ -3600,7 +3600,7 @@ trampCall(
3600
3600
  trampCall(
3601
3601
  begin
3602
3602
  begin
3603
- def self._html_COMARKhtml_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3603
+ def self._html_COMARKhtml_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3604
3604
  @global_lisp_binding['_html_COMARKhtml'] = self.method( :_html_COMARKhtml_METHOD )
3605
3605
  @_html_COMARKhtml =
3606
3606
  trampCall(
@@ -3608,7 +3608,7 @@ trampCall(
3608
3608
  )
3609
3609
  end
3610
3610
  begin
3611
- def self._html_COMARKhtml_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3611
+ def self._html_COMARKhtml_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3612
3612
  @global_lisp_binding['_html_COMARKhtml'] = self.method( :_html_COMARKhtml_METHOD )
3613
3613
  @_html_COMARKhtml =
3614
3614
  trampCall(
@@ -3631,7 +3631,7 @@ trampCall(
3631
3631
  trampCall(
3632
3632
  begin
3633
3633
  begin
3634
- def self._html_COMARKframeset_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3634
+ def self._html_COMARKframeset_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3635
3635
  @global_lisp_binding['_html_COMARKframeset'] = self.method( :_html_COMARKframeset_METHOD )
3636
3636
  @_html_COMARKframeset =
3637
3637
  trampCall(
@@ -3639,7 +3639,7 @@ trampCall(
3639
3639
  )
3640
3640
  end
3641
3641
  begin
3642
- def self._html_COMARKframeset_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3642
+ def self._html_COMARKframeset_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3643
3643
  @global_lisp_binding['_html_COMARKframeset'] = self.method( :_html_COMARKframeset_METHOD )
3644
3644
  @_html_COMARKframeset =
3645
3645
  trampCall(
@@ -3656,7 +3656,7 @@ trampCall(
3656
3656
  )
3657
3657
  end
3658
3658
  begin
3659
- def self._html_COMARKframe_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3659
+ def self._html_COMARKframe_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3660
3660
  @global_lisp_binding['_html_COMARKframe'] = self.method( :_html_COMARKframe_METHOD )
3661
3661
  @_html_COMARKframe =
3662
3662
  trampCall(
@@ -3664,7 +3664,7 @@ trampCall(
3664
3664
  )
3665
3665
  end
3666
3666
  begin
3667
- def self._html_COMARKframe_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3667
+ def self._html_COMARKframe_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3668
3668
  @global_lisp_binding['_html_COMARKframe'] = self.method( :_html_COMARKframe_METHOD )
3669
3669
  @_html_COMARKframe =
3670
3670
  trampCall(
@@ -3681,7 +3681,7 @@ trampCall(
3681
3681
  )
3682
3682
  end
3683
3683
  begin
3684
- def self._html_COMARKnoframes_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3684
+ def self._html_COMARKnoframes_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3685
3685
  @global_lisp_binding['_html_COMARKnoframes'] = self.method( :_html_COMARKnoframes_METHOD )
3686
3686
  @_html_COMARKnoframes =
3687
3687
  trampCall(
@@ -3689,7 +3689,7 @@ trampCall(
3689
3689
  )
3690
3690
  end
3691
3691
  begin
3692
- def self._html_COMARKnoframes_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3692
+ def self._html_COMARKnoframes_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3693
3693
  @global_lisp_binding['_html_COMARKnoframes'] = self.method( :_html_COMARKnoframes_METHOD )
3694
3694
  @_html_COMARKnoframes =
3695
3695
  trampCall(
@@ -3706,7 +3706,7 @@ trampCall(
3706
3706
  )
3707
3707
  end
3708
3708
  begin
3709
- def self._html_COMARKiframe_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3709
+ def self._html_COMARKiframe_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3710
3710
  @global_lisp_binding['_html_COMARKiframe'] = self.method( :_html_COMARKiframe_METHOD )
3711
3711
  @_html_COMARKiframe =
3712
3712
  trampCall(
@@ -3714,7 +3714,7 @@ trampCall(
3714
3714
  )
3715
3715
  end
3716
3716
  begin
3717
- def self._html_COMARKiframe_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
3717
+ def self._html_COMARKiframe_METHOD( origname, pred, args ) lispMethodEntry( origname, true ) ; ret = callProcedure( origname, pred, args ) ; lispMethodExit( origname, true ) ; return ret end
3718
3718
  @global_lisp_binding['_html_COMARKiframe'] = self.method( :_html_COMARKiframe_METHOD )
3719
3719
  @_html_COMARKiframe =
3720
3720
  trampCall(