Функції конструктора, Детальна інформація

(SUE JOE ANN BOB)

$

&

,

.

:

<

F

L

<

>

:

<

\x00A8

Hм n останніх елементів списку list. Якщо n пропущено чи рівне нулю, чи не є додатним цілим, BUTLAST копіює та повертає усе, окрім останнього, елементи списку.

(DEFUN BUTLAST (LST N)

((AND (INTEGERP N) (>=N 0))

(FIRST (-(LENGTH LST) N) LST) )

(BUTLAST LST 1) )

$ (BUTLAST '(A B C D)) $ (BUTLAST '(A B C D) 2)

(A B C) (A B)

10. (REMOVE item list test). Повртає копію списку list з усіма елементами, окрім тих, які при перевірці за тестом test мають ознаку не NIL та видаляються (тобто (test item element) не дорівнює NIL).

Якщо тест-аргумент дорівнює NIL або не задан, REMOVE використовує EQL-тест.

(REMOVE-IF test list). Повртає копію списку list з усіма елементами, окрім тих, які при перевірці за тестом test мають ознаку не NIL та видаляються.

(DTFUN REMOVE (ITEM LST TEST)

((ATOM LST) LST)

( ((NULL TEST)

(SETQ TEST 'EQL) ) )

(LET ( (COPY (REMOVE ITEM (CDR LST) TEST)) )

((FUNCALL TEST ITEM (CAR LST)) COPY)