From 0f5bb88f5de7601fc65629e0828cb2f6ecfec688 Mon Sep 17 00:00:00 2001
From: Eitaro Fukamachi <e.arrows@gmail.com>
Date: Sat, 8 Jun 2024 12:33:01 +0000
Subject: [PATCH] Fix a bug that changes of directory path for `local` won't be
 synced with qlfile.lock.

---
 src/source/local.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/source/local.lisp b/src/source/local.lisp
index f06db44d..dae2a9b9 100644
--- a/src/source/local.lisp
+++ b/src/source/local.lisp
@@ -57,3 +57,9 @@
           (loop for (k v) on (rest source-params) by #'cddr
                 unless (eq k :version)
                 append (list k v)))))
+
+(defmethod source= ((source1 source-local) (source2 source-local))
+  (and (string= (source-project-name source1)
+                (source-project-name source2))
+       (equal (source-local-path source1)
+              (source-local-path source2))))