382 |
t) |
t) |
383 |
|
|
384 |
(deftest macrolet.43 |
(deftest macrolet.43 |
385 |
(let ((*x* nil)) |
(let ((*x-in-macrolet.43* nil)) |
386 |
(declare (special *x*)) |
(declare (special *x-in-macrolet.43*)) |
387 |
(let ((*f* #'(lambda () *x*))) |
(let ((*f* #'(lambda () *x-in-macrolet.43*))) |
388 |
(declare (special *f*)) |
(declare (special *f*)) |
389 |
(eval `(macrolet ((%m (*x*) |
(eval `(macrolet ((%m (*x-in-macrolet.43*) |
390 |
(declare (special *f*)) |
(declare (special *f*)) |
391 |
(funcall *f*))) |
(funcall *f*))) |
392 |
(%m t))))) |
(%m t))))) |
393 |
nil) |
nil) |
394 |
|
|
395 |
(deftest macrolet.44 |
(deftest macrolet.44 |
396 |
(let ((*x* nil)) |
(let ((*x-in-macrolet.44* nil)) |
397 |
(declare (special *x*)) |
(declare (special *x-in-macrolet.44*)) |
398 |
(let ((*f* #'(lambda () *x*))) |
(let ((*f* #'(lambda () *x-in-macrolet.44*))) |
399 |
(declare (special *f*)) |
(declare (special *f*)) |
400 |
(eval `(macrolet ((%m (*x*) |
(eval `(macrolet ((%m (*x-in-macrolet.44*) |
401 |
(declare (special *f* *x*)) |
(declare (special *f* *x-in-macrolet.44*)) |
402 |
(funcall *f*))) |
(funcall *f*))) |
403 |
(%m t))))) |
(%m t))))) |
404 |
t) |
t) |
405 |
|
|
406 |
(deftest macrolet.45 |
(deftest macrolet.45 |
407 |
(let ((*x* nil)) |
(let ((*x-in-macrolet.45* nil)) |
408 |
(declare (special *x*)) |
(declare (special *x-in-macrolet.45*)) |
409 |
(let ((*f* #'(lambda () *x*))) |
(let ((*f* #'(lambda () *x-in-macrolet.45*))) |
410 |
(declare (special *f*)) |
(declare (special *f*)) |
411 |
(eval `(macrolet ((%m ((*x*)) |
(eval `(macrolet ((%m ((*x-in-macrolet.45*)) |
412 |
(declare (special *f* *x*)) |
(declare (special *f* *x-in-macrolet.45*)) |
413 |
(funcall *f*))) |
(funcall *f*))) |
414 |
(%m (t)))))) |
(%m (t)))))) |
415 |
t) |
t) |