;; -*- Lisp -*-

;; BKNR build script - Called by buildbot to clean up fasls

(format t "; cleaning fasls in ~A~%" (probe-file *default-pathname-defaults*))
(mapc #'delete-file
      (directory
       (merge-pathnames (make-pathname :name :wild
                                             :directory '(:relative :wild-inferiors)
                                             :type (pathname-type (compile-file-pathname "")))
                        (probe-file *default-pathname-defaults*))))