Функції модифікатора

((NUMBERP ATM) (список символів, P - імена яких складаються з цифр атома ATM) ) )

$ (UNPACK ‘abcde)$ (UNPACK 216)$ (SETQ *PRINT-BASE 16*)

(a b c d e)(\2 \1 \6)$ (UNPACK 216)

(\0 \D \8)

2. PACK . Повертає символ, P - ім’я якого складіється зі счеплених P - імен атомів у списку . Для визначення P - імен чисел використову- ється поточна система числення. Функція PACK завжди повертає символ, навіть якщо P - ім‘я складається тільки з однозначних чисел.

(DEFUN PACK (LST)

((ATOM LST) "")

((SYMBOLP (CAR LST)) (символ, P - ім’я якого складається з P - імені (CAR LST) , сполучене з (PACK (CDR LST))) )

((NUMBERP (CAR LST)) (символ, P - ім’я якого складається з цифр у друкованому представлені (CAR LST), сполучене з (PACK (CDR LST))) )

(PACK (CDR LST)) )

$ (PACK ‘(a b c d e)$ (PACK ‘(\7 \3 \1)$ (PACK ‘(Q \7 \A \1))

abcde|731|Q7A1

$ (PACK ‘(23 56)$ (PACK '("" 3 ||))

|2356|\3

3. PACK* ... . Повертає символ, P-ім’я якого складається зі счеплених P-імен атомів. Ця функція є вузькою версією PACK, оскільки вона працює не зі списком атомів, а з будь-якою кількістю атомів.

(DEFUN PACK* LST

(PACK LST) )

$ (PACK* ‘a ‘b ‘c)$ (PACK 4 ‘QW ‘T)

ABC|4QWT|4. CHAR . Якщо — символ або число, а — невід’ємне ціле число, функція CHAR повертає символ, P - ім’я якого є n-ий символ P - імені , причому відлік символів починається з 0. Функція повертає NIL якщо не ноль і не додатне ціле число, або якщо P - ім’я атома містить меньш ніж n символів.

(DEFUN CHAR (atm n)

((ATOM atm)(NTH n (UNPACK atm)) ) )

$ (CHAR ‘ABCDE 3)$ (CHAR 12345 0)$ (CHAR ‘qwe 8)

D\1NIL