This is a multi-part message in MIME format.
--------------040103030105070107080500
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Hello again,
there seems to be a problem with let* : Using the attached file,
poplog clisp bug
leads to poplog terminating with a lot of Stack-empty errors.
If you uncomment the ;(defun foo...) in line 2, or remove the local
variable declarations after x269, then for me the result is a runaway
poplog process that has to be killed with kill -9.
I'm using poplog v15.6 on Linux. If you need more info, please ask.
Cheers,
Andreas
--------------040103030105070107080500
Content-Type: text/plain;
name="bug.lsp"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="bug.lsp"
;(setq x 1)
;(defun foo (x) (+ x 1))
(let* (
(x000 (foo x))
(x001 (foo x))
(x002 (foo x))
(x003 (foo x))
(x004 (foo x))
(x005 (foo x))
(x006 (foo x))
(x007 (foo x))
(x008 (foo x))
(x009 (foo x))
(x010 (foo x))
(x011 (foo x))
(x012 (foo x))
(x013 (foo x))
(x014 (foo x))
(x015 (foo x))
(x016 (foo x))
(x024 (foo x))
(x025 (foo x))
(x026 (foo x))
(x027 (foo x))
(x028 (foo x))
(x029 (foo x))
(x030 (foo x))
(x031 (foo x))
(x032 (foo x))
(x033 (foo x))
(x034 (foo x))
(x035 (foo x))
(x036 (foo x))
(x037 (foo x))
(x038 (foo x))
(x039 (foo x))
(x040 (foo x))
(x041 (foo x))
(x042 (foo x))
(x043 (foo x))
(x044 (foo x))
(x045 (foo x))
(x046 (foo x))
(x047 (foo x))
(x048 (foo x))
(x049 (foo x))
(x050 (foo x))
(x051 (foo x))
(x052 (foo x))
(x053 (foo x))
(x054 (foo x))
(x055 (foo x))
(x056 (foo x))
(x057 (foo x))
(x058 (foo x))
(x059 (foo x))
(x060 (foo x))
(x061 (foo x))
(x062 (foo x))
(x063 (foo x))
(x064 (foo x))
(x065 (foo x))
(x066 (foo x))
(x067 (foo x))
(x068 (foo x))
(x069 (foo x))
(x070 (foo x))
(x071 (foo x))
(x072 (foo x))
(x073 (foo x))
(x074 (foo x))
(x075 (foo x))
(x076 (foo x))
(x077 (foo x))
(x078 (foo x))
(x079 (foo x))
(x080 (foo x))
(x081 (foo x))
(x082 (foo x))
(x083 (foo x))
(x084 (foo x))
(x085 (foo x))
(x086 (foo x))
(x087 (foo x))
(x088 (foo x))
(x089 (foo x))
(x090 (foo x))
(x091 (foo x))
(x092 (foo x))
(x093 (foo x))
(x094 (foo x))
(x095 (foo x))
(x096 (foo x))
(x097 (foo x))
(x098 (foo x))
(x099 (foo x))
(x100 (foo x))
(x101 (foo x))
(x102 (foo x))
(x103 (foo x))
(x104 (foo x))
(x105 (foo x))
(x106 (foo x))
(x107 (foo x))
(x108 (foo x))
(x109 (foo x))
(x110 (foo x))
(x111 (foo x))
(x112 (foo x))
(x113 (foo x))
(x114 (foo x))
(x115 (foo x))
(x116 (foo x))
(x117 (foo x))
(x118 (foo x))
(x119 (foo x))
(x120 (foo x))
(x121 (foo x))
(x122 (foo x))
(x123 (foo x))
(x124 (foo x))
(x125 (foo x))
(x126 (foo x))
(x127 (foo x))
(x128 (foo x))
(x129 (foo x))
(x130 (foo x))
(x131 (foo x))
(x132 (foo x))
(x133 (foo x))
(x134 (foo x))
(x135 (foo x))
(x136 (foo x))
(x137 (foo x))
(x138 (foo x))
(x139 (foo x))
(x140 (foo x))
(x141 (foo x))
(x142 (foo x))
(x143 (foo x))
(x144 (foo x))
(x145 (foo x))
(x146 (foo x))
(x147 (foo x))
(x148 (foo x))
(x149 (foo x))
(x150 (foo x))
(x151 (foo x))
(x152 (foo x))
(x153 (foo x))
(x154 (foo x))
(x155 (foo x))
(x156 (foo x))
(x157 (foo x))
(x158 (foo x))
(x159 (foo x))
(x160 (foo x))
(x161 (foo x))
(x162 (foo x))
(x163 (foo x))
(x164 (foo x))
(x165 (foo x))
(x166 (foo x))
(x167 (foo x))
(x168 (foo x))
(x169 (foo x))
(x170 (foo x))
(x171 (foo x))
(x172 (foo x))
(x173 (foo x))
(x174 (foo x))
(x175 (foo x))
(x176 (foo x))
(x177 (foo x))
(x178 (foo x))
(x179 (foo x))
(x180 (foo x))
(x181 (foo x))
(x182 (foo x))
(x183 (foo x))
(x184 (foo x))
(x185 (foo x))
(x186 (foo x))
(x187 (foo x))
(x188 (foo x))
(x189 (foo x))
(x190 (foo x))
(x191 (foo x))
(x192 (foo x))
(x193 (foo x))
(x194 (foo x))
(x195 (foo x))
(x196 (foo x))
(x197 (foo x))
(x198 (foo x))
(x199 (foo x))
(x201 (foo x))
(x202 (foo x))
(x203 (foo x))
(x204 (foo x))
(x205 (foo x))
(x206 (foo x))
(x207 (foo x))
(x208 (foo x))
(x209 (foo x))
(x210 (foo x))
(x211 (foo x))
(x212 (foo x))
(x213 (foo x))
(x214 (foo x))
(x215 (foo x))
(x216 (foo x))
(x224 (foo x))
(x225 (foo x))
(x226 (foo x))
(x227 (foo x))
(x228 (foo x))
(x229 (foo x))
(x230 (foo x))
(x231 (foo x))
(x232 (foo x))
(x233 (foo x))
(x234 (foo x))
(x235 (foo x))
(x236 (foo x))
(x237 (foo x))
(x238 (foo x))
(x239 (foo x))
(x240 (foo x))
(x241 (foo x))
(x242 (foo x))
(x243 (foo x))
(x244 (foo x))
(x245 (foo x))
(x246 (foo x))
(x247 (foo x))
(x248 (foo x))
(x249 (foo x))
(x250 (foo x))
(x251 (foo x))
(x252 (foo x))
(x253 (foo x))
(x254 (foo x))
(x255 (foo x))
(x256 (foo x))
(x257 (foo x))
(x258 (foo x))
(x259 (foo x))
(x260 (foo x))
(x261 (foo x))
(x262 (foo x))
(x263 (foo x))
(x264 (foo x))
(x265 (foo x))
(x266 (foo x))
(x267 (foo x))
(x268 (foo x))
(x269 (foo x))
(x270 (foo x))
(x271 (foo x))
(x272 (foo x))
(x273 (foo x))
(x274 (foo x))
(x275 (foo x))
(x276 (foo x))
(x277 (foo x))
(x278 (foo x))
(x279 (foo x))
(x280 (foo x))
(x281 (foo x))
(x282 (foo x))
(x283 (foo x))
(x284 (foo x))
(x285 (foo x))
(x286 (foo x))
(x287 (foo x))
(x288 (foo x))
(x289 (foo x))
)
nil)
--------------040103030105070107080500--
|