[[N.S]]

Подскажите пожалуйста, есть ли лисп функция с помощью которой можно получить остаток списка начиная с определенной позиции? Что-то наподобие (nth i) только, возвращающая остаток списка, а не один элемент.
Или придется писать что-то типа:

Код:

[Выделить все]

(setq tail searchlist)
(repeat i (setq tail (cdr tail)))

[Кулик Алексей aka kpblc]

(cdr (member item lst))

[[N.S]]

Спасибо большое за оперативность, но это не то, что я ищу. Мне нужен остаток списка не от вхождения определенного элемента, а от начиная с некоторого порядкового номера. Например, список '(a b c c c d), а нужно получить хвост после 4-го элемента - '(c d)

[Кулик Алексей aka kpblc]

Вбыструю, без поиска встроенных функций:

Код:

[Выделить все]

(defun test (pos lst / res item)
  (while (>= (- (length lst) pos) 0)
    (setq res (cons (nth pos lst) res)
          pos (1+ pos)
          ) ;_ end of setq
    ) ;_ end of while
  (reverse res)
  ) ;_ end of defun

;|
;;; Пример использования:
(setq lst '(0 1 2 3 4 0 10 1 12 1 13 1 14 1 15)
      pos 3)
(test pos lst)	; '(3 4 0 10 1 12 1 13 1 14 1 15)
|;

[Zouss]

если элементы списка неуникальны придется писать что-то вроде:

Код:

[Выделить все]

(defun f1 (pos lst /)
  (repeat pos (setq lst (cdr lst)))
  lst
)

код не проверял

[[N.S]]

Можно и так:

Код:

[Выделить все]

(defun _list-tail (pos lst / res)
  	(setq res lst)
  	(repeat pos (setq res (cdr res)))
  	res
) ;_ end of defun
;|
Пример использования:
(setq lst '(a b c d c e f g c h c c)
      pos 2)
(_list-tail pos lst)	; '(C D C E F G C H C C)
(_list-tail 0 lst)	; '(A B C D C E F G C H C C)
|;

Но все же интересует именно встроенная функция.
Перерыл весь хелп по лиспу -> не нашел.(

[[N.S]]

Ссори. Тут уже изменеия произошли, пока ответ писал. В итоге тоже самое что Zouss написал. =)