10 lines
202 B
Text
10 lines
202 B
Text
: (setq A (new '(+Cls1 +Cls2) 'attr1 123 'attr2 "def" 'attr3 (4 2 0) 'attr4 T))
|
|
-> $385603635
|
|
|
|
: (show A)
|
|
$385603635 (+Cls1 +Cls2)
|
|
attr4
|
|
attr3 (4 2 0)
|
|
attr2 "def"
|
|
attr1 123
|
|
-> $385603635
|