; Tout une se'rie de tueurs de GC

(de gckiller1 (l) (while t (setq l (cons l l))))
(de gckiller2 (l) (while t (setq l (vector l)))))