��������� �ᒺ��� �����

$ (SYMBOLP �XYZ)		$ (SYMBOLP 41) 
T				NIL                     
$ (SYMBOLP �(q w))		$ (SYMBOLP �())
NIL				T

(DEFUN SYMBOL-VALUE (SYM)		(DEFUN SYMBOL-PLIST (SYM)
((SYMBOLP SYM) (CAR SYM) ) )		((SYMBOLP SYM) (CDR SYM) ) )

(SETQ x y)	   	��	(SETF x y)
(SET x y)		��	(SETF (SYMBOL-VALUE x) y)

$ (SETQ |sym(bol| 3)	$ (SETQ a |q w e|)	$ s\a		$ s\\a
$ |sym(bol|		$ a			sa		|s\\a||
3                      |q w e|

$ (SETQ *PRINT-ESCAPE* NIL)	$ (SETQ a |q w e|)	$ (SETQ "s\\a" 2)
$ s\\a				$ a			$ |s\\a|
s\a				q w e			2

	�������	�䒺���	$ (CDR 5.6)		$ (CAR 5.6)
����	NIL	T		MACRO			5.6
������	LAMBDA	NLAMBDA		$ (CDR 1212)		$ (CDR -121212)
�������	MACRO	SPECIAL		NIL			NLAMBDA

$ (EQL -3 4)	$ (EQL 4 4)	$ (= 2 2 2)	$ (= 2 2 3 2)
NIL		T		T		NIL

$ 3/4	$ 3/9		$ 5/1		$ 12/9
3/4	1/3		5		4/3

$ (SETQ ten 10)			$ (SETQ *PRINT-BASE* 2)		$ 234
$ (SETQ *PRINT-BASE* 16)	$ ten				11101010
$ ten				1010
0A

$ (INTEGERP 100)	$ (INTEGERP 3.5)
T				NIL
$ (NUMBERP 3.5)		$ (NUMBERP 4/5)
T			T

$ (SYMBOLP "23")		$ (NUMBERP "23")
T				NIL

$ (SETQ A (cons X Y))	$ (CAR A)	$ (CDR A)	$ (CDR �(R . S))
$ A			X		Y		S
(X . Y)

$ (SETQ a �(q . (w . nil))	$ a	$ (CONSP �(q . w))	$ (CONSP (q w))
(q w)				(q w)	T			T

������� ������������

$ (PUT �capital �usa �washington)	$ (SETQ capital �world)
$ (PUT �capital �germany �bonn)		$ (PUT �world �ocean �atlantic)
$ (PUT �capital �england �london)	
$ (CDR �capital)
((ENGLAND . LONDON) (GERMANY . BONN) (USA . WASHINGTON))
$ (CDR capital)
((ocean . atlantic))
$ (CAR �capital)		$ capital
world				world

$ (GET �capital �england)	$ (GET 'capital 'germany)
london 				bonn

(REMPROP �capital �germany)
bonn
(REMPROP �capital �usa)
washington
(CDR �capital)
((england . london))

������� ����������

$ (DEFUN ISCHAR (char)				$ (ASCII �f)	$ (ASCII 70)
(<= (ASCII �a) (ASCII char) (ASCII �z))  )	70		F

$ (ASCII �\9)		$ (ASCII 57)      
57			\9

$ (ALPHA-CHAR-P W)	$ (ALPHA-CHAR-P \3)	$ (ALPHA-CHAR-P ~)
T			NIL			NIL
$ (NUMERIC-CHAR-P W)	$ (NUMERIC-CHAR-P \3)	$ (NUMERIC-CHAR-P ~)
NIL			T			NIL
$ (ALPHANUMERICP W)	$ (ALPHANUMERICP \3)	$ (ALPHANUMERICP ~)
T			T			NIL

��������

�) �(q w e r t y)	�>	(q (w (e (r (t (y))))))
�) �(q w e r t y	�>	((((((y) t) r) e) w) q)
�) �(q w e r t y)	�>	((q) (w) (e) (r) (t) (y))
�) �(q w e r t y)	�>	((q w) (e r) (t y))