Skip to content
Snippets Groups Projects
Commit 89eaf9ea authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix make wc.

parent 400c8f50
No related branches found
No related tags found
No related merge requests found
...@@ -22,12 +22,13 @@ ...@@ -22,12 +22,13 @@
(with-asdf-dir () (with-asdf-dir ()
(flet ((lisp-only (x) (remove "lisp" x :test-not 'equal :key 'pathname-type))) (flet ((lisp-only (x) (remove "lisp" x :test-not 'equal :key 'pathname-type)))
(let ((uiop-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)))) (defsystem-files (remove "build/asdf.lisp"
(lisp-only (asdf-defsystem-files)) :test 'equal)))
(run* `(pipe (wc ,@uiop-files) (sort -n))) (run* `(pipe (wc ,@uiop-files) (sort -n)))
(terpri) (terpri)
(run* `(pipe (wc header.lisp ,@defsystem-files) (sort -n))) (run* `(pipe (wc ,@defsystem-files) (sort -n)))
(terpri) (terpri)
(run* `(pipe (wc header.lisp ,@uiop-files ,@defsystem-files) (tail -n 1))))))) (run* `(pipe (wc ,@uiop-files ,@defsystem-files) (tail -n 1)))))))
;;; debug the source registry that is being used to execute these tools. ;;; debug the source registry that is being used to execute these tools.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment