https://wiki.kram.nz/index.php?action=history&feed=atom&title=SE701%3Aclosure.lisp SE701:closure.lisp - Revision history 2026-09-14T07:48:19Z Revision history for this page on the wiki MediaWiki 1.46.0 https://wiki.kram.nz/index.php?title=SE701:closure.lisp&diff=25&oldid=prev Mark: New page: ;;; A simple closure in Lisp (defun make-counter () (let ((count 0)) (list #'(lambda () (setq count (1+ count))) #'(lambda () (setq count (1- count))) #'(lambda () count)... 2008-02-15T19:40:17Z <p>New page: ;;; A simple closure in Lisp (defun make-counter () (let ((count 0)) (list #&#039;(lambda () (setq count (1+ count))) #&#039;(lambda () (setq count (1- count))) #&#039;(lambda () count)...</p> <p><b>New page</b></p><div> ;;; A simple closure in Lisp<br /> (defun make-counter ()<br /> (let ((count 0))<br /> (list #&#039;(lambda () (setq count (1+ count)))<br /> #&#039;(lambda () (setq count (1- count)))<br /> #&#039;(lambda () count))))<br /> <br /> (destructuring-bind (inc dec read) (make-counter)<br /> (funcall inc)<br /> (funcall inc)<br /> (funcall inc)<br /> (funcall dec)<br /> (print (funcall read)))</div> Mark