Plaster

common-lisp
;;---- case 1 --------------------------------------- (defparameter outerb (let ((a 0) (b)) (let ((a a)) (incf a) (setf b (lambda () a)) (print (funcall b)) ;; -> 1 b))) (funcall outerb) ;; -> 1 ;;---- case 2 --------------------------------------- (defparameter a 0) (defparameter outerb (let ((a 0) (b)) (let ((a a)) (incf a) (setf b (lambda () a)) (print (funcall b)) ;; -> 1 b))) (funcall outerb) ;; -> 0