Plaster
New
List
Login
common-lisp
default
ukari
2019.04.17 08:29:03
;;---- 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
Raw
Annotate
Repaste