Commit 30dd2d22fc253c512ccf258fc228e9f5b5081e4c

Thomas de Grivel 2020-03-10T18:33:31

print probed properties

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
diff --git a/core/probe.lisp b/core/probe.lisp
index fc29db0..2fc2e8f 100644
--- a/core/probe.lisp
+++ b/core/probe.lisp
@@ -75,6 +75,10 @@
 	  (probes-of r)))
 
 (defun add-probed-properties (resource properties)
+  (format t "~&(resource '~A ~S ~{~S ~S~^ ~})~%"
+          (class-name (class-of resource))
+          (resource-id resource)
+          properties)
   (setf #1=(probed-properties resource)
         (merge-properties resource #1# properties)))