The attached patch fixes DO-SEQUENCE which doesn't currently stay in the array bounds -- and hence also fixes DRAW-LINES*.
Cheers,
-- Nikodemus Schemer: "Buddha is small, clean, and serious." Lispnik: "Buddha is big, has hairy armpits, and laughs."