revision 693: | 5f81d888c31f |
---|---|
parent 549: | 32bd859533b3 |
1.1--- a/lisp/std/file.lisp Thu Oct 03 17:56:11 2024 -0400 1.2+++ b/lisp/std/file.lisp Thu Oct 03 19:04:57 2024 -0400 1.3@@ -440,7 +440,7 @@ 1.4 1.5 (defun count-file-lines (path) 1.6 "Count the number of non-empty lines in the file at PATH. A line is empty if 1.7-it only contains space or tabulation characters." 1.8+it only contains spaces or tab characters." 1.9 (declare (type pathname path)) 1.10 (with-open-file (stream path :element-type '(unsigned-byte 8)) 1.11 (do ((nb-lines 0)