История изменений
Исправление korvin_, (текущая версия) :
в примере приведённом выше не могу понять где vars list form
(center-x center-y end-x end-y) ; vars
dragging-info ; list
(let* ...) ; form
(let ((dragging-info (list 1 2 3 4)))
(destructuring-bind (center-x center-y end-x end-y)
dragging-info
(let ((foo (+ center-x center-y)))
(format t "c-x: ~a ; c-y: ~a ; e-x: ~a ; e-y: ~a~%"
center-x center-y end-x end-y)
(format t "foo: ~a~%" foo))))
Исходная версия korvin_, :
в примере приведённом выше не могу понять где vars list form
(center-x center-y end-x end-y) ; vars
dragging-info ; list
(let* ...) ; form