ploting roots of polynomials



Hello,

I would like to plot complex roots of polynomials, I have tried this:
------

a:allroots(x^3+3*x^2+x+1,x);
plot2d([['discrete, realpart(a), imagpart(a)]], [x,-5,5]);
------

but maxima is not happy because "allroots" output is of the form [x=...., x=....,x=] and "plot2d" would like a list of complex (without "x="). 

Thanks in advance for your help,

Samy