Írok valami util függvényt az emacs init.el-be. Úgy tűnik, hogy két, azonos argumentumnévvel rendelkező függvény hibát okoz.
Ha megváltoztatom az egyik függvény argumentumnevét, minden rendben van. De mivel az argumentum lokális a függvényre, nem lehetnek hatással egymásra.
(defun for-loop (op list-var)
(if (not (eq list-var nil))
(progn
(funcall op (car list-var))
(for-loop op (cdr list-var)))))
(defun append-to-list (list-var element-list)
(let ((op (lambda (item) (add-to-list list-var item))))
(for-loop op element-list)))
(setq list-1 '(1 2 3))
(append-to-list 'list-1 '(4 5 6))
Ha megváltoztatom a 'list-var' nevet a for-loopban egy másik névre, akkor az 'anohoer-list-var' pl. minden rendben megy, de a fenti kód szerint az emacs kinyomtatja a köteget:
Debugger entered--Lisp error: (wrong-type-argument symbolp (4 5 6))
add-to-list((4 5 6) 4)
(lambda (item) (add-to-list list-var item))(4)
funcall((lambda (item) (add-to-list list-var item)) 4)
(progn (funcall op (car list-var)) (for-loop op (cdr list-var)))
(if (not (eq list-var nil)) (progn (funcall op (car list-var)) (for-loop op (cdr list-var))))
for-loop((lambda (item) (add-to-list list-var item)) (4 5 6))
(let ((op (function (lambda (item) (add-to-list list-var item))))) (for-loop op element-list))
append-to-list(list-1 (4 5 6))