1.1--- a/lisp/lib/vc/hg.lisp	Mon May 27 23:15:33 2024 -0400
     1.2+++ b/lisp/lib/vc/hg.lisp	Tue May 28 16:44:54 2024 -0400
     1.3@@ -55,6 +55,9 @@
     1.4             (:regex "^hg@"))
     1.5           url-str)))
     1.6 
     1.7+(defun hgignore (&optional (path ".hgignore"))
     1.8+  (make-vc-ignore :path path :patterns (map-lines #'ppcre:create-scanner path)))
     1.9+
    1.10 ;; (describe (make-instance 'hg-repo))
    1.11 ;; https://repo.mercurial-scm.org/hg/file/tip/mercurial/interfaces/repository.py
    1.12 (defclass hg-repo (vc-repo)