root/trunk/clean.lisp
| Revision 3644, 495 bytes (checked in by hans, 4 months ago) |
|---|
| 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.
