(if DIR (write-file (string DIR "/" N) (P S D)) (println N))
(inc P S))))))))
-;; clear the compiler index
-;; Drop the compile members from the index
+;; clear the compiler archive index, to be used for source archives
(dolist (M (map first (archives))) (archives M nil))
(when (or (!= 1 (length (clean null? OPTIONS)))