changelog shortlog graph tags branches changeset file revisions annotate raw help

Mercurial > core / lisp/std/file.lisp

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)