Commit 84cebea0 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

tools/build: driver is dead, long live uiop!

parent 5c8793f9
......@@ -21,13 +21,13 @@
"count lines of lisp code in asdf and uiop"
(with-asdf-dir ()
(flet ((lisp-only (x) (remove "lisp" x :test-not 'equal :key 'pathname-type)))
(let ((driver-files (mapcar #'(lambda (x) (subpathname "uiop/" x)) (lisp-only (uiop-files))))
(let ((uiop-files (mapcar #'(lambda (x) (subpathname "uiop/" x)) (lisp-only (uiop-files))))
(defsystem-files (lisp-only (asdf-defsystem-files))))
(run* `(pipe (wc ,@driver-files) (sort -n)))
(run* `(pipe (wc ,@uiop-files) (sort -n)))
(terpri)
(run* `(pipe (wc header.lisp ,@defsystem-files) (sort -n)))
(terpri)
(run* `(pipe (wc header.lisp ,@driver-files ,@defsystem-files) (tail -n 1)))))))
(run* `(pipe (wc header.lisp ,@uiop-files ,@defsystem-files) (tail -n 1)))))))
;;; debug the source registry that is being used to execute these tools.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment