Enhet ieraksta albumu mežā un uzstāsies Zvērā

(defun bind (var val vlist) (let ( (binding (assoc var vlist)) ) (labels ((rebind (var val vlist) (cond ((endp vlist) '()) ((eql var (caar vlist)) (cons (cons var val) (rebind var val (rest vlist)))) (t (cons (first vlist) (rebind var val (rest vlist))))))) (cond ((null binding) (cons (cons var val) vlist)) (t (rebind var val vlist))) )) )Blir aeldlles varm inuti.