Commit 336064c2a4025fd4417e4a64b91c31174d5c6dcb

Thomas de Grivel 2018-07-10T12:38:18

merge-property-values

1
2
3
4
5
6
7
8
9
10
11
12
13
14
diff --git a/core/properties.lisp b/core/properties.lisp
index ca21e60..204680b 100644
--- a/core/properties.lisp
+++ b/core/properties.lisp
@@ -66,6 +66,9 @@
                                     (value2 local-time:timestamp))
   (local-time:timestamp= value1 value2))
 
+(defmethod merge-property-values (resource property (old null) new)
+  new)
+
 (defmethod merge-property-values (resource property old new)
   (unless (compare-property-values resource property old new)
     (warn "Conflicting values for property ~A in