CLA 500Q8)
| (OPDEFINE ( ( CLA 500Q8) (TRA 2Q9) (LOAD 1000) (OVBGN 7432Q) )) |
| Пример 7.1. |
| Закрыть окно |
| (LAP ( ( GREATER SUBR 2) (TLQ (* 3)) (PXA 0 0) (TRA 1 4) (CLA (QUOTE *T* ) ) (TRA 1 4) ) NIL) |
| Пример 7.2. Лисп-функция. |
| Закрыть окно |
| (LAP (6217Q (TRA NIL) )NIL) (LAP (NIL (CLA A) (TSX 6204Q) (TRA B) ) ( (A . 6243Q) (B . 6220Q) ) )) |
| Пример 7.3. Заплатка для кода программы. |
| Закрыть окно |
