(defun pos-in-lst (n lst count)
(if (= n (car lst))
count
(pos-in-lst n (setq lst (cdr lst))
(setq count (+ count 1)))))
.......
;;В этом месте всё прекрасно
(setq *omega3-max-pos-in-lst* (pos-in-lst *omega3-max*
*rev-true-omega3-lst*
*count*))
;; а здесь ошибка Wrong type argument: number-or-marker-p, nil
(setq *PHI2-at-omega3-max* (pos-in-lst *omega3-max-pos-in-lst*
*lst-of-val-PHI2*
*count*))
Проверяю аргументы
*omega3-max-pos-in-lst* ===> 59 (#o73, #x3b, ?\;)
*lst-of-val-PHI2* ===> (6.283185307179525 6.248278722139639 6.213372137099753 6.178465552059866 6.14355896701998 6.108652381980094 6.073745796940208 6.038839211900322 6.003932626860435 5.969026041820549 5.934119456780663 5.899212871740777 ...)
*count* ===> 0 (#o0, #x0, ?\C-@)
Правда 1011 строк кода и имакс просто отказывается работать, не могу сообразить
