Date: 07/08/07 (Code WTF)    Keywords: no keywords

Копаясь в стороннем AutoLISP коде обнаружились конструкции напоминающие 1C.
Спасите мой мозг, пожалуйста. Как объяснить людям, что в лиспе есть списки, что функции должны принимать значения?
Что setq это крайняя мера в лиспе, а не предмет для обожания?



(defun ugol_ ()                                ;функция вычисления углов и длин линий
  (setq ploch 0)
  (setq nabug nil)
  (setq nabdl nil)
  (setq pos (- ln 1))
  (setq zikl (- ln 2))                        ;х — координата точки
  (setq p 0)                                ;х — координата точки
  (setq n 1)                                ;х — координата точки
  (setq o 2)                                ;х — координата точки
  (setq y (nth 0 nabx))                        ;х — координата точки
  (setq x (nth 0 naby))                        ;y — координата точки
  (setq y1 (nth 1 nabx))                ;х — координата точки
  (setq x1 (nth 1 naby))                ;х — координата точки

Source: http://community.livejournal.com/code_wtf/93851.html