Ortak Lisp'de Etiketlerin Kullanımı

Question

In this question on code reviewdefun yerine labels kullanması söylendi. İnternete baktım, ama onu kullanmanın bir yolunu bulamadım ve hala kodumu olduğu gibi tutuyorum.

Kodumda labels'u nasıl kullanabilirim?

Answer 1

(defun example() 
    (let ((a 0) 
     (f nil)) 
    (macrolet ((next (state) 
       `(setf f (function ,state)))) 
     (labels ((init() 
       (setf a 0) 
       (next inc)) 
       (inc() 
       (incf a) 
       (next inc) 
       (when (> a 5) 
        (next reset))) 
       (reset() 
       (setf a 0) 
       (next inc)) 
       (controller() 
       (funcall f) 
       (print a))) 
     (init) 
     (loop repeat 20 
       do (controller)))))) 

Örnek çağrı:

CL-USER 7 > (example) 

1 
2 
3 
4 
5 
6 
0 
1 
2 
3 
4 
5 
6 
0 
1 
2 
3 
4 
5 
6 
NIL