list shift function



~~~

Is there a ready made Maxima function perform cyclic left or right shift of a list, 
for example:

(%i1) L:[a,b,c,d]$
(%i2) left_shift(L,2);
(%o2) [c,d,a,b]


Ed

~~~