FIX: Correct all tangle paths and regenerate Lisp sources

src/consensus-logic.lisp

@@ -0,0 +1,9 @@
+(defun consensus-propose-vote (proposal)
+  "Broadcasts a proposal to the peer swarm and collects votes.
+   Implements PSF Social Consensus Protocol."
+  (let* ((peers (get-swarm-peer-list))
+         (votes (loop for peer in peers 
+                      collect (org-agent:send-swarm-packet peer `(:type :REQUEST :action :vote :proposal ,proposal)))))
+    (if (> (count :YES votes) (/ (length peers) 2))
+        t ; Consensus reached
+        nil)))