W dniu 2011-10-16 12:09, Piotr Chamera pisze:
> Można np. napisać to
>
> >> (let ((licznik 0))
> >> (defun następny () (setf licznik (1+ licznik)))
> >> (defun poprzedni () (setf licznik (1- licznik))))
>
> tak:
>
> (defvar *licz*
> (let ((licznik 0))
> (list
> (lambda ()
> (setf licznik (1+ licznik)))
> (lambda ()
> (setf licznik (1- licznik))))))
>
> taka konstrukcja zwraca listę funkcji (którym nie nadano nazw)
>
> CL-USER> *licz*
> (#<COMPILED-LEXICAL-CLOSURE #xC9E7EC6> #<COMPILED-LEXICAL-CLOSURE
> #xC9E7E9E>)
>
> i korzystać z licznika tak:
>
> CL-USER> (funcall (first *licz*))
> 1
> CL-USER> (funcall (first *licz*))
> 2
> CL-USER> (funcall (second *licz*))
> 1
> CL-USER> (funcall (second *licz*))
> 0

Dodam może jeszcze, że w tym przykładzie możemy zrobić
coś takiego:

CL-USER> (setf (symbol-function 'następny) (first *licz*))
#<COMPILED-LEXICAL-CLOSURE #xC83E976>

CL-USER> (setf (symbol-function 'poprzedni) (second *licz*))
#<COMPILED-LEXICAL-CLOSURE #xC83E94E>

CL-USER> (następny)
1
CL-USER> (funcall (first *licz*))
2
CL-USER> (następny)
3
CL-USER> (funcall (first *licz*))
4
...

Wywołujemy teraz tę samą funkcję, ale raz przez nazwę,
a drugi raz uruchamiając obiekt przechowywany na liście.