root/trunk/clean.lisp

Revision 3644, 495 bytes (checked in by hans, 4 months ago)

Revive cmucl support for BOS.

Line 
1 ;; -*- Lisp -*-
2
3 ;; BKNR build script - Called by buildbot to clean up fasls
4
5 (format t "; cleaning fasls in ~A~%" (probe-file *default-pathname-defaults*))
6 (mapc #'delete-file
7       (directory
8        (merge-pathnames (make-pathname :name :wild
9                                              :directory '(:relative :wild-inferiors)
10                                              :type (pathname-type (compile-file-pathname "")))
11                         (probe-file *default-pathname-defaults*))))
12
13
Note: See TracBrowser for help on using the browser.