variables in alisp

[joker]

Can someone tell me why this alisp doesn't work?

(setq w 10)
(setq h 83)
(setq x1 5)
(setq y1 30)
(setq p1 '(x1 y1 0))

X1 in the last line seems to return an error.

Thanks

[hendie]

try

(setq P1 (list x1 y1 0))