test/thebug2.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13


(setq! z 40)
(setq! f
  (lambda (x)
    (lambda (y)
      (lambda (w)
        (+
          (funcall (lambda (z) (+ x y z)) 3)
          w
          z)))))
(let ((z 20))
  (print! (funcall (funcall (funcall f 1) 2) 3)))