sbcl выдал странную ошибку

Во-первых ты забыл пустой список аргументов, во-вторых, если ты хочешь функцию left-moment-A то нужно писать #'left-moment-A, в третьих ты вероятно хочешь mapcar а не map.

И что у тебя за мания использовать глобальные переменные? Не делай так.

Ну он прав же, ты объявил аргументы (map left-moment-A *left-forces-A* *left-A*), но так их и не использовал.

И что у тебя за мания использовать глобальные переменные? Не делай так.

Мне так проще, знаю, что так делать не надо.

Переписывать с Scheme на Lisp ночью не рекомендуется.

Вот ещё но тема та же

(defvar *distances-lst*
  '(50 990 1181.58))
(defvar *A-distance* 0)
(defvar *A-right* '())

(defun collect-right-A (A-distance distances-lst)
      (if (< A-distance (car distances-lst))
	  *A-right*
	  (progn
	    (push (car distances-lst) *A-right*)
	    (collect-right-A A-distance (cdr distances-lst)))))
WARNING: redefining COMMON-LISP-USER::COLLECT-RIGHT-A in DEFUN
COLLECT-RIGHT-A
CL-USER> (collect-right-A *A-distance* *distances-lst*)
(50 990 1181.58 50 990 1181.58 50 990 1181.58 50 990 1181.58) такого не ожидал

Такое ощущение, что вы lisp методом тыка учите. Это неправильно, лисп так не учится. Прочтите SICP & PCL. Это займёт некоторое время, но сейчас же вы его просто теряете, а так — проведёте с пользой.

(50 990 1181.58 50 990 1181.58 50 990 1181.58 50 990 1181.58) такого не ожидал

Чувствуешь, как говно полезло из-за глобальных переменных? Мысли в голову никакие не приходят?

SICP

и читал и лекции смотрел, там фокус есть, у студентов там какие-то методички для подготовки к лекциям, а с одним SICP оно не берётся, а может я не особо одарённый.

Такое ощущение, что вы lisp методом тыка учите

А у меня такое ощущение, что вы можете только языком умные вещи.

Мысли в голову никакие не приходят?

Конечно приходят. Не совсем уверен, но если от глобальных переменных отказаться то тогда функции будут использоваться как data.

А у меня такое ощущение, что вы можете только языком умные вещи.

Я предполагал, что вы как-то так мой совет и воспримете.

Не стоит тратить свое время на меня. Если знаете какой ответ получите.

такого не ожидал

А что ожидал?

то тогда функции будут использоваться как data

И почему это проблема? Да и то не обязательно, локальную функцию определи.

Я подзабыл многое, сейчас пытаюсь вспомнить, сделаю, выложу, хорошо.

(defun list< (N L)
; Makes a copy of list L
; containing only elements
; that are < N.
; L must be a list of numbers.
(if (null L)
nil
(if (< (first L) N)
(cons (first L) (list< N (rest L)))
(list< N (rest L)))))

CL-USER> (list< 4 '(1 2 3 4 5))
(1 2 3)
CL-USER> (list< 0 '(1 2 3 4 5))
NIL
CL-USER> (list< 2 '(1 2 3 4 5))
(1 2 3 4)
CL-USER> (list< 2 '(1 2 3 4 5))
(1)

такой код можно записать на loop или на do?

Разумеется можно, но зачем? Есть же remove/delete и т.п.

Вчера перед сном подумал что наверное какие-то стандартные функции есть для этого дела.