Creio que faltou esta rotina na MJ4:
(defun get-lpt (q r pt / l n)
(setq l nil n 1)
(repeat q
(setq l (append l
(list (polar pt (/ (* n 2 pi) q) r)))
n (1+ n)))
l)
get-lpt (q r pt) -> gera uma lista de pontos de um poligono com (q) lados, (r) de raio e centro em (pt)