D 2013-11-12T12:33:43.225
J assignee aku
J closedate 2456609.02341696
J closer dkf
J comment Script\sto\sreproduce:\r\n-------------\r\nproc\sLTrace\s{args}\s{\r\nputs\s"LTrace:\s$args"\r\n#Hardcoded:\r\ntrace\sremove\sexecution\stest\sleave\sLTrace\r\n}\r\n\r\nproc\sGTrace\s{args}\s{puts\s"This\sis\sglobal\strace:\s$args"}\r\n\r\nproc\slocalproc\s{pname\sarglist\sbody}\s{\r\nset\scaller\s[lindex\s[info\slevel\s1]\s0]\r\ntrace\sadd\sexecution\s$caller\sleave\sLTrace\r\nputs\s"Active\straces\son\s$caller:\s[trace\sinfo\sexecution\s$caller]"\r\nproc\s$pname\s$arglist\s"uplevel\s1\s[list\s$body]"\r\nreturn\r\n}\r\n\r\nproc\stest\s{a\sb}\s{\r\nlocalproc\slproc\s{}\s{puts\s"a=$a,\sb=$b"}\r\nlproc\r\nset\sa\s"A"\s;\sset\sb\s"B"\r\nlproc\r\n}\r\n\r\n#trace\sadd\sexecution\stest\sleave\sGTrace\r\ntest\sa\s4\r\nputs\s"---------"\r\ntest\sa\s5\r\n------------------\r\nIn\stcl\s8.4.19\sit\sgives:\r\n\r\nActive\straces\son\stest:\s{leave\sLTrace}\r\na=a,\sb=4\r\na=A,\sb=B\r\nLTrace:\s{test\sa\s4}\s0\s{}\sleave\r\n---------\r\nActive\straces\son\stest:\s{leave\sLTrace}\r\na=a,\sb=5\r\na=A,\sb=B\r\nLTrace:\s{test\sa\s5}\s0\s{}\sleave\r\n\r\nBut\sin\stcl\s8.6b2\sand\s8.5.10:\r\n\r\nActive\straces\son\stest:\s{leave\sLTrace}\r\na=a,\sb=4\r\na=A,\sb=B\r\n---------\r\nActive\straces\son\stest:\s{leave\sLTrace}\s{leave\sLTrace}\r\na=a,\sb=5\r\na=A,\sb=B\r\nLTrace:\s{test\sa\s5}\s0\s{}\sleave\r\n-----\r\nSo,\sLTrace\sisn't\scalled\sfirst\stime.\r\n\r\nAlso,\sif\sI\suncomment\sthe\sline\s"#trace\sadd\sexecution\stest\sleave\sGTrace",\sthen\sin\sall\stcl\sversions\sresult\sbecomes:\r\n---\r\nActive\straces\son\stest:\s{leave\sLTrace}\s{leave\sGTrace}\r\na=a,\sb=4\r\na=A,\sb=B\r\nThis\sis\sglobal\strace:\s{test\sa\s4}\s0\s{}\sleave\r\nLTrace:\s{test\sa\s4}\s0\s{}\sleave\r\n---------\r\nActive\straces\son\stest:\s{leave\sLTrace}\s{leave\sGTrace}\r\na=a,\sb=5\r\na=A,\sb=B\r\nThis\sis\sglobal\strace:\s{test\sa\s5}\s0\s{}\sleave\r\nLTrace:\s{test\sa\s5}\s0\s{}\sleave
J login dkf
J mimetype text/plain
J severity Minor
J status Closed
K 3439728fffffffffffffffffffffffffffffffff
U dkf
Z 11940acda136c75b493ffc84d384a099
