KERNEL: Loading environment from /home/user/.local/share/org-agent/.env DAEMON: Binding to 127.0.0.1:9105... ================================================== org-agent Kernel Booted Successfully. Daemon Listening: 127.0.0.1:9105 ================================================== KERNEL: Jailing skill 'org-skill-architect' in package ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT ; in: ; PROGN (DEFUN ARCHITECT-PERCEIVE-FROZEN-PRD (NOTE-PATH) ; "Checks if a master note has a FROZEN PRD and lacks a Phase B section." ; (LET ((CONTENT (UIOP/STREAM:READ-FILE-STRING NOTE-PATH))) ; (WHEN ; (AND (SEARCH "* Phase A: Demand (PRD)" CONTENT) ; (SEARCH ":STATUS: FROZEN" CONTENT) (NOT #)) ; `(:NOTE-PATH ,NOTE-PATH :CONTENT ,CONTENT)))) ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::ARCHITECT-ACTUATE ; (ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::ARCHITECT-ACTUATE ; (LET* ((ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::PAYLOAD #) ; (ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::NOTE-PATH #) ; (ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::BLUEPRINT-CONTENT #)) ; (ORG-AGENT:KERNEL-LOG "ARCHITECT - Appending PROTOCOL to ~a" ; ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::NOTE-PATH) ; (WITH-OPEN-FILE ; (ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::OUT ; ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::NOTE-PATH :DIRECTION :OUTPUT ; :IF-EXISTS :APPEND) ; (FORMAT ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::OUT ; "~%* Phase B: Blueprint (PROTOCOL)~%:PROPERTIES:~%:STATUS: SIGNED~%:END:~%~%~a" ; ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::BLUEPRINT-CONTENT)) ; (FORMAT NIL "SUCCESS - Architect established PROTOCOL in ~a" ; ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::NOTE-PATH)))) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-ast-normalization' in package ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION ; in: ; PROGN (DEFUN TRIGGER-SKILL-AST-NORMALIZATION (CONTEXT) ; "Triggers on :user-command :organize-subtree.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::TRIGGER-SKILL-AST-NORMALIZATION ; (ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::TRIGGER-SKILL-AST-NORMALIZATION ; "Triggers on :user-command :organize-subtree.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-AST-NORMALIZATION (CONTEXT) ; "Triggers on :user-command :organize-subtree.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::VERIFY-SKILL-AST-NORMALIZATION ; (ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::PROPOSED-ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::VERIFY-SKILL-AST-NORMALIZATION ; "Symbolic check for missing IDs and mandatory properties.")) ; ; caught STYLE-WARNING: ; The variable PROPOSED-ACTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN TRIGGER-SKILL-AST-NORMALIZATION (CONTEXT) ; "Triggers on :user-command :organize-subtree.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT:FIND-HEADLINE-MISSING-ID ; (ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::AST) ; (BLOCK ORG-AGENT:FIND-HEADLINE-MISSING-ID ; "Recursive scan of AST for headlines without IDs.")) ; ; caught STYLE-WARNING: ; The variable AST is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT:FIND-HEADLINE-MISSING-ID in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::TRIGGER-SKILL-AST-NORMALIZATION in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::VERIFY-SKILL-AST-NORMALIZATION in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-AST-NORMALIZATION (CONTEXT) ; "Triggers on :user-command :organize-subtree.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::NEURO-SKILL-AST-NORMALIZATION ; (ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::CONTEXT) ; "Neural logic for mapping un-IDed headlines to PARA structure (Skeletal)." ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-AST-NORMALIZATION::NEURO-SKILL-AST-NORMALIZATION ; NIL)) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT:ORG-ID-NEW in DEFUN KERNEL: Jailing skill 'org-skill-atomic-notes' in package ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES ; in: ; PROGN (DEFUN ATOMIC-NOTES-SCAN (QUERY) ; "Stage 1: Returns a sparse list of matching headlines and their unique IDs.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES::ATOMIC-NOTES-SCAN ; (ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES::QUERY) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES::ATOMIC-NOTES-SCAN ; "Stage 1: Returns a sparse list of matching headlines and their unique IDs.")) ; ; caught STYLE-WARNING: ; The variable QUERY is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN ATOMIC-NOTES-SCAN (QUERY) ; "Stage 1: Returns a sparse list of matching headlines and their unique IDs.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES::ATOMIC-NOTES-DEEP-READ ; (ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES::IDS) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES::ATOMIC-NOTES-DEEP-READ ; "Stage 2: Retrieves the full content for a specific list of node IDs.")) ; ; caught STYLE-WARNING: ; The variable IDS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES::ATOMIC-NOTES-SCAN in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES::ATOMIC-NOTES-DEEP-READ in DEFUN ; in: ; PROGN (DEFUN ATOMIC-NOTES-SCAN (QUERY) ; "Stage 1: Returns a sparse list of matching headlines and their unique IDs.") ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-ATOMIC-NOTES::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-auth-api-key' in package ORG-AGENT.SKILLS.ORG-SKILL-AUTH-API-KEY ; in: ; PROGN (DEFUN AUTH-API-KEY-GET-CREDENTIALS () ; (LET ((KEY (UIOP/OS:GETENV "LLM_API_KEY"))) ; (WHEN KEY (LIST :API-KEY KEY)))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-AUTH-API-KEY::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-AUTH-API-KEY::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-AUTH-API-KEY::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-AUTH-API-KEY::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-auth-google-oauth' in package ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH ; in: PROGN (DEFVAR *GOOGLE-TOKEN-STATE* NIL) ; (ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::AUTH-GOOGLE-GET-URL) ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::AUTH-GOOGLE-GET-URL ; ; compilation unit finished ; Undefined function: ; AUTH-GOOGLE-GET-URL ; caught 1 STYLE-WARNING condition ; in: PROGN (DEFVAR *GOOGLE-TOKEN-STATE* NIL) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-brain-mapper' in package ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER ; in: ; PROGN (DEFUN TRIGGER-SKILL-BRAIN-MAPPER (CONTEXT) ; "Triggers on 'show me your brain' or 'skill graph'.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::TRIGGER-SKILL-BRAIN-MAPPER ; (ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::TRIGGER-SKILL-BRAIN-MAPPER ; "Triggers on 'show me your brain' or 'skill graph'.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-BRAIN-MAPPER (CONTEXT) ; "Triggers on 'show me your brain' or 'skill graph'.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::NEURO-SKILL-BRAIN-MAPPER ; (ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::NEURO-SKILL-BRAIN-MAPPER ; "Neural architect analysis of skill performance.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::TRIGGER-SKILL-BRAIN-MAPPER in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-BRAIN-MAPPER (CONTEXT) ; "Triggers on 'show me your brain' or 'skill graph'.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-BRAIN-MAPPER::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-chaos' in package ORG-AGENT.SKILLS.ORG-SKILL-CHAOS KERNEL: Jailing skill 'org-skill-chat' in package ORG-AGENT.SKILLS.ORG-SKILL-CHAT ; in: ; PROGN (DEFUN TRIGGER-SKILL-CHAT (CONTEXT) "Triggers on :sensor :chat-message.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CHAT::TRIGGER-SKILL-CHAT ; (ORG-AGENT.SKILLS.ORG-SKILL-CHAT::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CHAT::TRIGGER-SKILL-CHAT ; "Triggers on :sensor :chat-message.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-CHAT (CONTEXT) "Triggers on :sensor :chat-message.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CHAT::VERIFY-SKILL-CHAT ; (ORG-AGENT.SKILLS.ORG-SKILL-CHAT::PROPOSED-ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-CHAT::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CHAT::VERIFY-SKILL-CHAT ; "Ensures response is targeted to the correct Emacs buffer.")) ; ; caught STYLE-WARNING: ; The variable PROPOSED-ACTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-CHAT::TRIGGER-SKILL-CHAT in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-CHAT (CONTEXT) "Triggers on :sensor :chat-message.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CHAT::VERIFY-SKILL-CHAT ; (ORG-AGENT.SKILLS.ORG-SKILL-CHAT::PROPOSED-ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-CHAT::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CHAT::VERIFY-SKILL-CHAT ; (IF (AND (LISTP ORG-AGENT.SKILLS.ORG-SKILL-CHAT::PROPOSED-ACTION) ; (OR # #)) ; ORG-AGENT.SKILLS.ORG-SKILL-CHAT::PROPOSED-ACTION ; (LET (#) ; `(:TYPE :REQUEST :TARGET :EMACS :PAYLOAD #))))) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-CHAT::VERIFY-SKILL-CHAT in DEFUN KERNEL: Jailing skill 'org-skill-consensus' in package ORG-AGENT.SKILLS.ORG-SKILL-CONSENSUS ; in: ; PROGN (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 #))) ; (IF (> (COUNT :YES VOTES) (/ # 2)) ; T ; NIL))) ; (ORG-AGENT.SKILLS.ORG-SKILL-CONSENSUS::GET-SWARM-PEER-LIST) ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-CONSENSUS::GET-SWARM-PEER-LIST ; ; compilation unit finished ; Undefined function: ; GET-SWARM-PEER-LIST ; caught 1 STYLE-WARNING condition ; in: ; PROGN (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 #))) ; (IF (> (COUNT :YES VOTES) (/ # 2)) ; T ; NIL))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-CONSENSUS::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-CONSENSUS::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-CONSENSUS::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-CONSENSUS::CONTEXT) ; "Formulate a consensus proposal for the peer swarm.") ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-context-manager' in package ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER ; in: ; PROGN (DEFUN CONTEXT-PUSH (NEW-CONTEXT) "Push a new context onto the stack.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::CONTEXT-PUSH ; (ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::NEW-CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::CONTEXT-PUSH ; "Push a new context onto the stack.")) ; ; caught STYLE-WARNING: ; The variable NEW-CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN CONTEXT-PUSH (NEW-CONTEXT) "Push a new context onto the stack.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT:CONTEXT-RESOLVE-PATH ; (ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::PATH) ; (BLOCK ORG-AGENT:CONTEXT-RESOLVE-PATH ; "Resolve a path based on current context.")) ; ; caught STYLE-WARNING: ; The variable PATH is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT:CONTEXT-RESOLVE-PATH in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::CONTEXT-PUSH in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::CONTEXT-POP in DEFUN WARNING: redefining ORG-AGENT:CONTEXT-RESOLVE-PATH in DEFUN ; in: ; PROGN (DEFUN CONTEXT-PUSH (NEW-CONTEXT) "Push a new context onto the stack.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-CONTEXT-MANAGER::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-creator' in package ORG-AGENT.SKILLS.ORG-SKILL-CREATOR ; in: ; PROGN (DEFUN TRIGGER-SKILL-CREATOR (CONTEXT) ; "Triggers on :delegation :target-skill :skill-creator.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::TRIGGER-SKILL-CREATOR ; (ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::TRIGGER-SKILL-CREATOR ; "Triggers on :delegation :target-skill :skill-creator.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-CREATOR (CONTEXT) ; "Triggers on :delegation :target-skill :skill-creator.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::CREATOR-EXTRACT-LISP-BLOCKS ; (ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::CONTENT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::CREATOR-EXTRACT-LISP-BLOCKS ; "Parses Org content to isolate code blocks.")) ; ; caught STYLE-WARNING: ; The variable CONTENT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-CREATOR (CONTEXT) ; "Triggers on :delegation :target-skill :skill-creator.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::VERIFY-SKILL-CREATOR ; (ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::PROPOSED-ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::VERIFY-SKILL-CREATOR ; "Symbolic gatekeeper validating syntax before deployment.")) ; ; caught STYLE-WARNING: ; The variable PROPOSED-ACTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::TRIGGER-SKILL-CREATOR in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::CREATOR-EXTRACT-LISP-BLOCKS in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-CREATOR (CONTEXT) ; "Triggers on :delegation :target-skill :skill-creator.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::VERIFY-SKILL-CREATOR ; (ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::PROPOSED-ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::VERIFY-SKILL-CREATOR ; (LET* ((ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::PAYLOAD #) ; (ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::LISP-BLOCKS #)) ; (DOLIST (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::LISP-BLOCKS) ; (MULTIPLE-VALUE-BIND # # #)) ; ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::PROPOSED-ACTION))) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::VERIFY-SKILL-CREATOR in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-CREATOR (CONTEXT) ; "Triggers on :delegation :target-skill :skill-creator.") ; #'ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::NEURO-SKILL-CREATOR ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::NEURO-SKILL-CREATOR ; ; compilation unit finished ; Undefined function: ; NEURO-SKILL-CREATOR ; caught 1 STYLE-WARNING condition READER ERROR in skill 'org-skill-creator': The function ORG-AGENT.SKILLS.ORG-SKILL-CREATOR::NEURO-SKILL-CREATOR is undefined. KERNEL: Jailing skill 'org-skill-cron' in package ORG-AGENT.SKILLS.ORG-SKILL-CRON READER ERROR in skill 'org-skill-cron': The symbol "ORG-OBJECT-LAST-SYNC" is not external in the ORG-AGENT package. Stream: # KERNEL: Jailing skill 'org-skill-delegation' in package ORG-AGENT.SKILLS.ORG-SKILL-DELEGATION READER ERROR in skill 'org-skill-delegation': Symbol "SPAWN-SUB-AGENT" not found in the ORG-AGENT package. Stream: # KERNEL: Jailing skill 'org-skill-diagrammer' in package ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER ; in: ; PROGN (DEFUN SYNTHESIZE-MERMAID (NODES EDGES) ; "Creates a Mermaid graph string from a list of nodes and edges." ; (LET ((HEADER "graph TD")) ; (FORMAT NIL "~a~%~{ ~a --> ~a~%~}" HEADER ; (LOOP FOR E IN EDGES ; APPEND (LIST # #))))) ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::SYNTHESIZE-MERMAID ; (ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::NODES ; ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::EDGES) ; "Creates a Mermaid graph string from a list of nodes and edges." ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::SYNTHESIZE-MERMAID ; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::HEADER "graph TD")) ; (FORMAT NIL "~a~%~{ ~a --> ~a~%~}" ; ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::HEADER ; (LOOP ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::FOR ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::E ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::IN ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::EDGES ; APPEND #))))) ; ; caught STYLE-WARNING: ; The variable NODES is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN SYNTHESIZE-MERMAID (NODES EDGES) ; "Creates a Mermaid graph string from a list of nodes and edges." ; (LET ((HEADER "graph TD")) ; (FORMAT NIL "~a~%~{ ~a --> ~a~%~}" HEADER ; (LOOP FOR E IN EDGES ; APPEND (LIST # #))))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-DIAGRAMMER::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-economist' in package ORG-AGENT.SKILLS.ORG-SKILL-ECONOMIST ; in: ; PROGN (DEFUN ECONOMIST-ROUTE-TASK (COMPLEXITY) ; "Selects the optimal model backend based on task complexity (1-10)." ; (LET ((BUDGET (GET-CURRENT-TOKEN-BUDGET))) ; (COND ((> COMPLEXITY 8) :GEMINI-1.5-PRO) ((AND # #) :GEMINI-FLASH) ; (T :OLLAMA-LOCAL)))) ; (ORG-AGENT.SKILLS.ORG-SKILL-ECONOMIST::GET-CURRENT-TOKEN-BUDGET) ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-ECONOMIST::GET-CURRENT-TOKEN-BUDGET ; ; compilation unit finished ; Undefined function: ; GET-CURRENT-TOKEN-BUDGET ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT:ECONOMIST-ROUTE-TASK in DEFUN ; in: ; PROGN (DEFUN ECONOMIST-ROUTE-TASK (COMPLEXITY) ; "Selects the optimal model backend based on task complexity (1-10)." ; (LET ((BUDGET (GET-CURRENT-TOKEN-BUDGET))) ; (COND ((> COMPLEXITY 8) :GEMINI-1.5-PRO) ((AND # #) :GEMINI-FLASH) ; (T :OLLAMA-LOCAL)))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-ECONOMIST::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-ECONOMIST::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-ECONOMIST::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-ECONOMIST::CONTEXT) ; "Analyze current compute efficiency and propose routing updates.") ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-emacs-bridge' in package ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE ; in: ; PROGN (DEFUN START-EMACS-SERVER (&KEY (PORT 9105)) "Starts the OACP listener.") ; (ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE::PORT 9105) ; ; caught STYLE-WARNING: ; The variable PORT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN START-EMACS-SERVER (&KEY (PORT 9105)) "Starts the OACP listener.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE::BROADCAST-TO-EMACS ; (ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE::ACTION-PLIST) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE::BROADCAST-TO-EMACS ; "Sends a framed message to all connected clients.")) ; ; caught STYLE-WARNING: ; The variable ACTION-PLIST is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE::BROADCAST-TO-EMACS in DEFUN ; in: ; PROGN (DEFUN START-EMACS-SERVER (&KEY (PORT 9105)) "Starts the OACP listener.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-EMACS-BRIDGE::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-embedding-generator' in package ORG-AGENT.SKILLS.ORG-SKILL-EMBEDDING-GENERATOR READER ERROR in skill 'org-skill-embedding-generator': Symbol "GET-CREDENTIALS" not found in the ORG-AGENT package. Stream: # KERNEL: Jailing skill 'org-skill-formal-verification' in package ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION ; in: ; PROGN (DEFPARAMETER *SECURITY-INVARIANTS* ; '((:NAME "Path-Safety" :FORMULA ; "(assert (forall ((p String)) (=> (is-write-op p) (str.prefixof \"/home/user/memex\" p))))"))) ; (ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::SMT-QUERY ; (FORMAT NIL ; "(declare-fun cmd () String) (assert (= cmd \"~a\")) ~{~a~%~} (check-sat)" ; ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::CMD ; (MAPCAR ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::I) ; (GETF ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::I ; :FORMULA)) ; ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::*SECURITY-INVARIANTS*))) ; ; caught STYLE-WARNING: ; The variable SMT-QUERY is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFPARAMETER *SECURITY-INVARIANTS* ; '((:NAME "Path-Safety" :FORMULA ; "(assert (forall ((p String)) (=> (is-write-op p) (str.prefixof \"/home/user/memex\" p))))"))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::CONTEXT) ; (IF (ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::VERIFY-ACTION-LOGIC ; ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::ACTION) ; ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::ACTION ; NIL)) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-FORMAL-VERIFICATION::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-function-calling' in package ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING ; in: ; PROGN (DEFUN LISP-SIGNATURE-TO-SCHEMA (FN-NAME PARAMS DOCSTRING) ; "Transforms a Lisp function definition into a JSON Schema tool object.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::LISP-SIGNATURE-TO-SCHEMA ; (ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::FN-NAME ; ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::PARAMS ; ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::DOCSTRING) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::LISP-SIGNATURE-TO-SCHEMA ; "Transforms a Lisp function definition into a JSON Schema tool object.")) ; ; caught STYLE-WARNING: ; The variable FN-NAME is defined but never used. ; ; caught STYLE-WARNING: ; The variable PARAMS is defined but never used. ; ; caught STYLE-WARNING: ; The variable DOCSTRING is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions ; in: ; PROGN (DEFUN LISP-SIGNATURE-TO-SCHEMA (FN-NAME PARAMS DOCSTRING) ; "Transforms a Lisp function definition into a JSON Schema tool object.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::NORMALIZE-TOOL-CALL ; (ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::RAW-RESPONSE) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::NORMALIZE-TOOL-CALL ; "Parses the LLM response and returns a standard :REQUEST action plist.")) ; ; caught STYLE-WARNING: ; The variable RAW-RESPONSE is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::LISP-SIGNATURE-TO-SCHEMA in DEFUN ; in: ; PROGN (DEFUN LISP-SIGNATURE-TO-SCHEMA (FN-NAME PARAMS DOCSTRING) ; "Transforms a Lisp function definition into a JSON Schema tool object.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-FUNCTION-CALLING::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-git-steward' in package ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD ; in: PROGN (DEFUN GIT-STATUS () "Return status of current repository.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::GIT-COMMIT ; (ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::MESSAGE) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::GIT-COMMIT ; "Stage and commit changes with MESSAGE.")) ; ; caught STYLE-WARNING: ; The variable MESSAGE is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::GIT-STATUS in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::GIT-COMMIT in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::GIT-PUSH in DEFUN ; in: PROGN (DEFUN GIT-STATUS () "Return status of current repository.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-GIT-STEWARD::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-groomer' in package ORG-AGENT.SKILLS.ORG-SKILL-GROOMER ; in: ; PROGN (DEFUN AUDIT-SKILL-LOGIC (SKILL-NAME) ; "Neural audit of a skill's Lisp blocks for complexity.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-GROOMER::AUDIT-SKILL-LOGIC ; (ORG-AGENT:SKILL-NAME) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-GROOMER::AUDIT-SKILL-LOGIC ; "Neural audit of a skill's Lisp blocks for complexity.")) ; ; caught STYLE-WARNING: ; The variable SKILL-NAME is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN AUDIT-SKILL-LOGIC (SKILL-NAME) ; "Neural audit of a skill's Lisp blocks for complexity.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-GROOMER::PROPOSE-REFACTOR ; (ORG-AGENT:SKILL-NAME) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-GROOMER::PROPOSE-REFACTOR ; "Drafts a 'Phase D' update for a skill to simplify its logic.")) ; ; caught STYLE-WARNING: ; The variable SKILL-NAME is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-GROOMER::AUDIT-SKILL-LOGIC in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-GROOMER::PROPOSE-REFACTOR in DEFUN ; in: ; PROGN (DEFUN AUDIT-SKILL-LOGIC (SKILL-NAME) ; "Neural audit of a skill's Lisp blocks for complexity.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-GROOMER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-GROOMER::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-GROOMER::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-gtd' in package ORG-AGENT.SKILLS.ORG-SKILL-GTD ; in: ; PROGN (DEFUN GTD-PERCEIVE-COMMITMENTS () ; "Returns a list of all active NEXT actions.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-GTD::GTD-UPDATE-PROJECT-STATE ; (ORG-AGENT.SKILLS.ORG-SKILL-GTD::PROJECT-ID ; ORG-AGENT.SKILLS.ORG-SKILL-GTD::NEW-STATE) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-GTD::GTD-UPDATE-PROJECT-STATE ; "Updates the :PSF-STATE: property of a project.")) ; ; caught STYLE-WARNING: ; The variable PROJECT-ID is defined but never used. ; ; caught STYLE-WARNING: ; The variable NEW-STATE is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN GTD-PERCEIVE-COMMITMENTS () ; "Returns a list of all active NEXT actions.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-GTD::GTD-BREAKDOWN-PROJECT ; (ORG-AGENT.SKILLS.ORG-SKILL-GTD::PROJECT-ID) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-GTD::GTD-BREAKDOWN-PROJECT ; "Uses the Long-Horizon Planning agent to generate NEXT steps for a stalled project.")) ; ; caught STYLE-WARNING: ; The variable PROJECT-ID is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-GTD::GTD-PERCEIVE-COMMITMENTS in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-GTD::GTD-BREAKDOWN-PROJECT in DEFUN ; in: ; PROGN (DEFUN GTD-PERCEIVE-COMMITMENTS () ; "Returns a list of all active NEXT actions.") ; (ORG-AGENT.SKILLS.ORG-SKILL-GTD::GTD-FILE ; (OR (UIOP/OS:GETENV "GTD_FILE") "gtd.org")) ; ; caught STYLE-WARNING: ; The variable GTD-FILE is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN GTD-PERCEIVE-COMMITMENTS () ; "Returns a list of all active NEXT actions.") ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-GTD::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-hardware-inhabitation' in package ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION ; in: ; PROGN (DEFUN INHABITATION-CHECK-CONVERGENCE () ; "Determines if the current host is a PSF-Native Lisp Machine.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::INHABITATION-SERIALIZE-IMAGE ; (ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::TARGET-PATH) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::INHABITATION-SERIALIZE-IMAGE ; "Serializes the brain and signals the Bootstrap Landlord to take over.")) ; ; caught STYLE-WARNING: ; The variable TARGET-PATH is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::INHABITATION-CHECK-CONVERGENCE in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::INHABITATION-SERIALIZE-IMAGE in DEFUN ; in: ; PROGN (DEFUN INHABITATION-CHECK-CONVERGENCE () ; "Determines if the current host is a PSF-Native Lisp Machine.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::CONTEXT) ; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::PATH ; (GETF # :TARGET-PATH))) ; (ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::INHABITATION-SERIALIZE-IMAGE ; ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::PATH) ; ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::ACTION)) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-HARDWARE-INHABITATION::CONTEXT) ; "Analyze the migration target and verify sovereignty.") ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-hook-manager' in package ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER ; in: ; PROGN (DEFUN REGISTER-HOOK (HOOK-NAME FN) "Register FN on HOOK-NAME.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::REGISTER-HOOK ; (ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::HOOK-NAME ; ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::FN) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::REGISTER-HOOK ; "Register FN on HOOK-NAME.")) ; ; caught STYLE-WARNING: ; The variable HOOK-NAME is defined but never used. ; ; caught STYLE-WARNING: ; The variable FN is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN REGISTER-HOOK (HOOK-NAME FN) "Register FN on HOOK-NAME.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::RUN-HOOKS ; (ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::HOOK-NAME &REST ; ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::ARGS) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::RUN-HOOKS ; "Run all functions on HOOK-NAME with ARGS.")) ; ; caught STYLE-WARNING: ; The variable HOOK-NAME is defined but never used. ; ; caught STYLE-WARNING: ; The variable ARGS is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::REGISTER-HOOK in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::RUN-HOOKS in DEFUN ; in: ; PROGN (DEFUN REGISTER-HOOK (HOOK-NAME FN) "Register FN on HOOK-NAME.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-HOOK-MANAGER::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-hyper-graph' in package ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH ; in: ; PROGN (DEFUN HYPER-GRAPH-TRACE-LINEAGE (OBJECT-ID) ; "Recursively follows #+ID and [[file:]] links to find related cross-modal nodes." ; (LET* ((OBJ (LOOKUP-OBJECT OBJECT-ID)) ; (LINKS (EXTRACT-ALL-ORG-LINKS #))) ; (KERNEL-LOG "MEMORY [Hyper-Graph] - Tracing lineage for ~a..." ; OBJECT-ID) ; (LOOP FOR LINK IN LINKS ; COLLECT (RESOLVE-HYPER-LINK LINK)))) ; (ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::EXTRACT-ALL-ORG-LINKS ; (ORG-AGENT:ORG-OBJECT-CONTENT ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::OBJ)) ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::EXTRACT-ALL-ORG-LINKS ; (ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::RESOLVE-HYPER-LINK ; ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::LINK) ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::RESOLVE-HYPER-LINK ; ; compilation unit finished ; Undefined functions: ; EXTRACT-ALL-ORG-LINKS RESOLVE-HYPER-LINK ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN HYPER-GRAPH-TRACE-LINEAGE (OBJECT-ID) ; "Recursively follows #+ID and [[file:]] links to find related cross-modal nodes." ; (LET* ((OBJ (LOOKUP-OBJECT OBJECT-ID)) ; (LINKS (EXTRACT-ALL-ORG-LINKS #))) ; (KERNEL-LOG "MEMORY [Hyper-Graph] - Tracing lineage for ~a..." ; OBJECT-ID) ; (LOOP FOR LINK IN LINKS ; COLLECT (RESOLVE-HYPER-LINK LINK)))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-HYPER-GRAPH::CONTEXT) ; "Synthesize a lineage report for the target ID.") ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-inbound-gateway' in package ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY ; in: ; PROGN (DEFUN GATEWAY-NORMALIZE-SIGNAL (RAW-JSON) ; "Transforms a Signal-cli message into an OACP :EVENT.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-NORMALIZE-SIGNAL ; (ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::RAW-JSON) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-NORMALIZE-SIGNAL ; "Transforms a Signal-cli message into an OACP :EVENT.")) ; ; caught STYLE-WARNING: ; The variable RAW-JSON is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN GATEWAY-NORMALIZE-SIGNAL (RAW-JSON) ; "Transforms a Signal-cli message into an OACP :EVENT.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-NORMALIZE-TELEGRAM ; (ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::RAW-JSON) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-NORMALIZE-TELEGRAM ; "Transforms a Telegram Bot payload into an OACP :EVENT.")) ; ; caught STYLE-WARNING: ; The variable RAW-JSON is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN GATEWAY-NORMALIZE-SIGNAL (RAW-JSON) ; "Transforms a Signal-cli message into an OACP :EVENT.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-VERIFY-SENDER ; (ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::SENDER-ID ; ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::CHANNEL) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-VERIFY-SENDER ; "Ensures the message is from an authorized recipient.")) ; ; caught STYLE-WARNING: ; The variable SENDER-ID is defined but never used. ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN GATEWAY-NORMALIZE-SIGNAL (RAW-JSON) ; "Transforms a Signal-cli message into an OACP :EVENT.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-PROCESS-INBOUND ; (ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::MESSAGE-EVENT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-PROCESS-INBOUND ; "Routes the normalized message through the Economist for cheap classification, ; then places it in the 'Holding Pen' (inbox.org).")) ; ; caught STYLE-WARNING: ; The variable MESSAGE-EVENT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN GATEWAY-NORMALIZE-SIGNAL (RAW-JSON) ; "Transforms a Signal-cli message into an OACP :EVENT.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-VERIFY-SENDER ; (ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::SENDER-ID ; ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::CHANNEL) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-VERIFY-SENDER ; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::APPROVED #)) ; (STRING= ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::SENDER-ID ; ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::APPROVED)))) ; ; caught STYLE-WARNING: ; The variable CHANNEL is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-VERIFY-SENDER in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-NORMALIZE-SIGNAL in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-PROCESS-INBOUND in DEFUN ; in: ; PROGN (DEFUN GATEWAY-NORMALIZE-SIGNAL (RAW-JSON) ; "Transforms a Signal-cli message into an OACP :EVENT.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::CONTEXT) ; (ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::GATEWAY-PROCESS-INBOUND ; ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::CONTEXT) ; NIL) ; ; caught STYLE-WARNING: ; The variable ACTION is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-INBOUND-GATEWAY::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-inbox-processor' in package ORG-AGENT.SKILLS.ORG-SKILL-INBOX-PROCESSOR KERNEL: Jailing skill 'org-skill-log-aggregator' in package ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR ; in: ; PROGN (DEFUN LOG-SCAN (&OPTIONAL (LINES 100)) ; "Scan the last N lines of the log.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::LOG-SCAN ; (&OPTIONAL (ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::LINES 100)) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::LOG-SCAN ; "Scan the last N lines of the log.")) ; ; caught STYLE-WARNING: ; The variable LINES is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN LOG-SCAN (&OPTIONAL (LINES 100)) ; "Scan the last N lines of the log.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::LOG-SUMMARIZE ; (ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::LOGS) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::LOG-SUMMARIZE ; "Neural or symbolic summary of LOGS.")) ; ; caught STYLE-WARNING: ; The variable LOGS is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::LOG-SCAN in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::LOG-SUMMARIZE in DEFUN ; in: ; PROGN (DEFUN LOG-SCAN (&OPTIONAL (LINES 100)) ; "Scan the last N lines of the log.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-LOG-AGGREGATOR::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-long-horizon' in package ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON ; in: ; PROGN (DEFUN PLAN-COMPRESS-NODE (NODE-ID) ; "Neural summarization of a completed sub-task tree.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::PLAN-COMPRESS-NODE ; (ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::NODE-ID) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::PLAN-COMPRESS-NODE ; "Neural summarization of a completed sub-task tree.")) ; ; caught STYLE-WARNING: ; The variable NODE-ID is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN PLAN-COMPRESS-NODE (NODE-ID) ; "Neural summarization of a completed sub-task tree.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::PLAN-REVIEW-BRANCHES ; (ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::ROOT-ID) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::PLAN-REVIEW-BRANCHES ; "Meta-cognitive audit of the current plan to prune dead ends.")) ; ; caught STYLE-WARNING: ; The variable ROOT-ID is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::PLAN-COMPRESS-NODE in DEFUN ; in: ; PROGN (DEFUN PLAN-COMPRESS-NODE (NODE-ID) ; "Neural summarization of a completed sub-task tree.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-LONG-HORIZON::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-memex' in package ORG-AGENT.SKILLS.ORG-SKILL-MEMEX ; in: ; PROGN (DEFUN MEMEX-AUDIT-METADATA (FILE-PATH) ; "Parses an Org file to ensure standards compliance.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::MEMEX-AUDIT-METADATA ; (ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::FILE-PATH) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::MEMEX-AUDIT-METADATA ; "Parses an Org file to ensure standards compliance.")) ; ; caught STYLE-WARNING: ; The variable FILE-PATH is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN MEMEX-AUDIT-METADATA (FILE-PATH) ; "Parses an Org file to ensure standards compliance.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::MEMEX-PROMOTE-NEXT-TASK ; (ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::PROJECT-ID) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::MEMEX-PROMOTE-NEXT-TASK ; "Triggered when a task is marked DONE; promotes the successor.")) ; ; caught STYLE-WARNING: ; The variable PROJECT-ID is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN MEMEX-AUDIT-METADATA (FILE-PATH) ; "Parses an Org file to ensure standards compliance.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::MEMEX-DISTILL-ATOMIC-NOTE ; (ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::DAILY-FILE-PATH ; ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::CONCEPT-QUERY) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::MEMEX-DISTILL-ATOMIC-NOTE ; "Extracts a concept and creates a permanent note.")) ; ; caught STYLE-WARNING: ; The variable DAILY-FILE-PATH is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONCEPT-QUERY is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::MEMEX-AUDIT-METADATA in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::MEMEX-PROMOTE-NEXT-TASK in DEFUN ; in: ; PROGN (DEFUN MEMEX-AUDIT-METADATA (FILE-PATH) ; "Parses an Org file to ensure standards compliance.") ; #'ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::NEURO-SKILL-MEMEX ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::NEURO-SKILL-MEMEX ; #'ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::TRIGGER-SKILL-MEMEX ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::TRIGGER-SKILL-MEMEX ; ; compilation unit finished ; Undefined functions: ; NEURO-SKILL-MEMEX TRIGGER-SKILL-MEMEX ; caught 2 STYLE-WARNING conditions READER ERROR in skill 'org-skill-memex': The function ORG-AGENT.SKILLS.ORG-SKILL-MEMEX::TRIGGER-SKILL-MEMEX is undefined. KERNEL: Jailing skill 'org-skill-model-explorer' in package ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER ; in: ; PROGN (DEFUN TRIGGER-SKILL-MODEL-EXPLORER (CONTEXT) ; "Triggers on '@agent list models' in buffer updates.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::TRIGGER-SKILL-MODEL-EXPLORER ; (ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::TRIGGER-SKILL-MODEL-EXPLORER ; "Triggers on '@agent list models' in buffer updates.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-MODEL-EXPLORER (CONTEXT) ; "Triggers on '@agent list models' in buffer updates.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::EXECUTE-SKILL-MODEL-EXPLORER ; (ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::EXECUTE-SKILL-MODEL-EXPLORER ; "Injects the model table into the active Emacs buffer.")) ; ; caught STYLE-WARNING: ; The variable ACTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::TRIGGER-SKILL-MODEL-EXPLORER in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::BUILD-ORG-TABLE-FOR-MODELS in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-MODEL-EXPLORER (CONTEXT) ; "Triggers on '@agent list models' in buffer updates.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::EXECUTE-SKILL-MODEL-EXPLORER ; (ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::CONTEXT) ; (DECLARE (IGNORE ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::ACTION)) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::EXECUTE-SKILL-MODEL-EXPLORER ; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::TABLE #)) ; (LIST :TYPE :REQUEST :TARGET :EMACS :PAYLOAD ; (LIST :ACTION :INSERT-TEXT :TEXT # :POSITION :AFTER-TRIGGER))))) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::EXECUTE-SKILL-MODEL-EXPLORER in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-MODEL-EXPLORER (CONTEXT) ; "Triggers on '@agent list models' in buffer updates.") ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-MODEL-EXPLORER::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-object-store-persistence' in package ORG-AGENT.SKILLS.ORG-SKILL-OBJECT-STORE-PERSISTENCE WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-OBJECT-STORE-PERSISTENCE::MEMORY-DUMP-IMAGE in DEFUN ; in: ; PROGN (DEFUN MEMORY-DUMP-IMAGE () ; "Serializes the current *object-store* to disk.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-OBJECT-STORE-PERSISTENCE::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-OBJECT-STORE-PERSISTENCE::CONTEXT) ; (ORG-AGENT.SKILLS.ORG-SKILL-OBJECT-STORE-PERSISTENCE::MEMORY-DUMP-IMAGE)) ; ; caught STYLE-WARNING: ; The variable ACTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-OBJECT-STORE-PERSISTENCE::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-onboarding' in package ORG-AGENT.SKILLS.ORG-SKILL-ONBOARDING ; in: ; PROGN (DEFUN ONBOARDING-VERIFY-ENV () ; "Checks host for required runtimes and libraries.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ONBOARDING::ONBOARDING-CALIBRATE-PATHS ; (ORG-AGENT.SKILLS.ORG-SKILL-ONBOARDING::BASE-DIR) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ONBOARDING::ONBOARDING-CALIBRATE-PATHS ; "Calculates absolute paths for all PARA directories.")) ; ; caught STYLE-WARNING: ; The variable BASE-DIR is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN ONBOARDING-VERIFY-ENV () ; "Checks host for required runtimes and libraries.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ONBOARDING::ONBOARDING-SET-IDENTITY ; (ORG-AGENT.SKILLS.ORG-SKILL-ONBOARDING::USER-NAME ; ORG-AGENT.SKILLS.ORG-SKILL-ONBOARDING::ASSISTANT-NAME) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ONBOARDING::ONBOARDING-SET-IDENTITY ; "Writes identity parameters to the kernel configuration.")) ; ; caught STYLE-WARNING: ; The variable USER-NAME is defined but never used. ; ; caught STYLE-WARNING: ; The variable ASSISTANT-NAME is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-ONBOARDING::ONBOARDING-VERIFY-ENV in DEFUN KERNEL: Jailing skill 'org-skill-org-delivery' in package ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY ; in: ; PROGN (DEFUN EXECUTE-ORG-DELIVERY (ACTION) ; "Enqueues a message in delivery.org.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::EXECUTE-ORG-DELIVERY ; (ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::ACTION) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::EXECUTE-ORG-DELIVERY ; "Enqueues a message in delivery.org.")) ; ; caught STYLE-WARNING: ; The variable ACTION is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN EXECUTE-ORG-DELIVERY (ACTION) ; "Enqueues a message in delivery.org.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::FORMAT-UNIVERSAL-TIME-ORG ; (ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::UT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::FORMAT-UNIVERSAL-TIME-ORG ; "Formats time for Org-mode properties.")) ; ; caught STYLE-WARNING: ; The variable UT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN EXECUTE-ORG-DELIVERY (ACTION) ; "Enqueues a message in delivery.org.") ; (ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::PAYLOAD ; (GETF ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::ACTION :PAYLOAD)) ; ; caught STYLE-WARNING: ; The variable PAYLOAD is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::EXECUTE-ORG-DELIVERY in DEFUN ; in: ; PROGN (DEFUN EXECUTE-ORG-DELIVERY (ACTION) ; "Enqueues a message in delivery.org.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-ORG-DELIVERY::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-org-mode' in package ORG-AGENT.SKILLS.ORG-SKILL-ORG-MODE ; in: ; PROGN (DEFUN ORG-MODE-PARSE-NODE (ID) ; "Retrieves the AST of a specific node by its ID.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ORG-MODE::ORG-MODE-PARSE-NODE ; (ORG-AGENT.SKILLS.ORG-SKILL-ORG-MODE::ID) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ORG-MODE::ORG-MODE-PARSE-NODE ; "Retrieves the AST of a specific node by its ID.")) ; ; caught STYLE-WARNING: ; The variable ID is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN ORG-MODE-PARSE-NODE (ID) ; "Retrieves the AST of a specific node by its ID.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ORG-MODE::ORG-MODE-VALIDATE-STRUCTURE ; (ORG-AGENT.SKILLS.ORG-SKILL-ORG-MODE::FILE-PATH) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ORG-MODE::ORG-MODE-VALIDATE-STRUCTURE ; "Checks a file for compliance with the Org Mandate.")) ; ; caught STYLE-WARNING: ; The variable FILE-PATH is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-ORG-MODE::ORG-MODE-PARSE-NODE in DEFUN ; in: ; PROGN (DEFUN ORG-MODE-PARSE-NODE (ID) ; "Retrieves the AST of a specific node by its ID.") ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-ORG-MODE::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-project-foundry' in package ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY ; in: ; PROGN (DEFUN SCAFFOLD-PROJECT (NAME TYPE) ; "Physically creates the PSF project structure and links it to GTD.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::SCAFFOLD-PROJECT ; (ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::NAME TYPE) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::SCAFFOLD-PROJECT ; "Physically creates the PSF project structure and links it to GTD.")) ; ; caught STYLE-WARNING: ; The variable NAME is defined but never used. ; ; caught STYLE-WARNING: ; The variable TYPE is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN SCAFFOLD-PROJECT (NAME TYPE) ; "Physically creates the PSF project structure and links it to GTD.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::TRIGGER-SKILL-PROJECT-FOUNDRY ; (ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::TRIGGER-SKILL-PROJECT-FOUNDRY ; "Triggers on :sensor :delegation :target-skill :foundry.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::SCAFFOLD-PROJECT in DEFUN ; in: ; PROGN (DEFUN SCAFFOLD-PROJECT (NAME TYPE) ; "Physically creates the PSF project structure and links it to GTD.") ; #'ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::NEURO-SKILL-PROJECT-FOUNDRY ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::NEURO-SKILL-PROJECT-FOUNDRY ; #'ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::VERIFY-SKILL-PROJECT-FOUNDRY ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::VERIFY-SKILL-PROJECT-FOUNDRY ; ; compilation unit finished ; Undefined functions: ; NEURO-SKILL-PROJECT-FOUNDRY VERIFY-SKILL-PROJECT-FOUNDRY ; caught 2 STYLE-WARNING conditions READER ERROR in skill 'org-skill-project-foundry': The function ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-FOUNDRY::NEURO-SKILL-PROJECT-FOUNDRY is undefined. KERNEL: Jailing skill 'org-skill-project-manager' in package ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER ; in: ; PROGN (DEFUN TRIGGER-SKILL-PROJECT-MANAGER (CONTEXT) ; "Triggers on status queries or :PROJECT_PATH: presence.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::TRIGGER-SKILL-PROJECT-MANAGER ; (ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::TRIGGER-SKILL-PROJECT-MANAGER ; "Triggers on status queries or :PROJECT_PATH: presence.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-PROJECT-MANAGER (CONTEXT) ; "Triggers on status queries or :PROJECT_PATH: presence.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::GET-PROJECT-DIAGNOSTICS ; (ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::RAW-PATH) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::GET-PROJECT-DIAGNOSTICS ; "Gathers file list and git status.")) ; ; caught STYLE-WARNING: ; The variable RAW-PATH is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-PROJECT-MANAGER (CONTEXT) ; "Triggers on status queries or :PROJECT_PATH: presence.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::GET-GIT-DIFF ; (ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::RAW-PATH) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::GET-GIT-DIFF ; "Retrieves uncommitted changes.")) ; ; caught STYLE-WARNING: ; The variable RAW-PATH is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::GET-PROJECT-DIAGNOSTICS in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-PROJECT-MANAGER (CONTEXT) ; "Triggers on status queries or :PROJECT_PATH: presence.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; in: ; PROGN (DEFUN TRIGGER-SKILL-PROJECT-MANAGER (CONTEXT) ; "Triggers on status queries or :PROJECT_PATH: presence.") ; #'ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::NEURO-SKILL-PROJECT-MANAGER ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::NEURO-SKILL-PROJECT-MANAGER ; ; compilation unit finished ; Undefined function: ; NEURO-SKILL-PROJECT-MANAGER ; caught 2 STYLE-WARNING conditions READER ERROR in skill 'org-skill-project-manager': The function ORG-AGENT.SKILLS.ORG-SKILL-PROJECT-MANAGER::NEURO-SKILL-PROJECT-MANAGER is undefined. KERNEL: Jailing skill 'org-skill-provider-anthropic' in package ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC ; in: ; PROGN (DEFUN EXECUTE-ANTHROPIC-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via the Anthropic API.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::EXECUTE-ANTHROPIC-REQUEST ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::PROMPT ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::SYSTEM-PROMPT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::EXECUTE-ANTHROPIC-REQUEST ; "Executes a completion request via the Anthropic API.")) ; ; caught STYLE-WARNING: ; The variable PROMPT is defined but never used. ; ; caught STYLE-WARNING: ; The variable SYSTEM-PROMPT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN EXECUTE-ANTHROPIC-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via the Anthropic API.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::EXECUTE-ANTHROPIC-REQUEST ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::PROMPT ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::SYSTEM-PROMPT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::EXECUTE-ANTHROPIC-REQUEST ; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::API-KEY #)) ; (UNLESS ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::API-KEY ; (RETURN-FROM ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::EXECUTE-ANTHROPIC-REQUEST ; "ERROR: Key missing")) ; (LET (#) ; (FORMAT NIL "Executing Anthropic request on ~a" ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::MODEL))))) ; ; caught STYLE-WARNING: ; The variable PROMPT is defined but never used. ; ; caught STYLE-WARNING: ; The variable SYSTEM-PROMPT is defined but never used. ; in: ; PROGN (DEFUN EXECUTE-ANTHROPIC-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via the Anthropic API.") ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::GET-CONFIG-ATTRIBUTE ; :LLM_MODEL_ANTHROPIC "claude-3-5-sonnet-20240620") ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::GET-CONFIG-ATTRIBUTE ; ; compilation unit finished ; Undefined function: ; GET-CONFIG-ATTRIBUTE ; caught 3 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::EXECUTE-ANTHROPIC-REQUEST in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::GET-ANTHROPIC-MODELS in DEFUN ; in: ; PROGN (DEFUN EXECUTE-ANTHROPIC-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via the Anthropic API.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-ANTHROPIC::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-provider-gemini' in package ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI ; in: ; PROGN (DEFUN EXECUTE-GEMINI-REQUEST (PROMPT SYSTEM-PROMPT) ; (LET* ((AUTH (GET-PROVIDER-AUTH :GEMINI)) ; (API-KEY (GETF AUTH :API-KEY)) ; (BEARER-TOKEN (GETF AUTH :BEARER-TOKEN)) ; (ENDPOINT ; (OR # ; "https://generativelanguage.googleapis.com/v1beta/models/gemini-pro:generateContent"))) ; (UNLESS (OR API-KEY BEARER-TOKEN) ; (RETURN-FROM EXECUTE-GEMINI-REQUEST ; "(:type :LOG :payload (:text \"Authentication missing for Gemini\"))")) ; (LET* ((URL #) (HEADERS `#) (BODY #)) ; (HANDLER-CASE ; (LET* # ; #) ; (ERROR # #))))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-provider-ollama' in package ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA ; in: ; PROGN (DEFUN EXECUTE-OLLAMA-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via local Ollama.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::EXECUTE-OLLAMA-REQUEST ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::PROMPT ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::SYSTEM-PROMPT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::EXECUTE-OLLAMA-REQUEST ; "Executes a completion request via local Ollama.")) ; ; caught STYLE-WARNING: ; The variable PROMPT is defined but never used. ; ; caught STYLE-WARNING: ; The variable SYSTEM-PROMPT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN EXECUTE-OLLAMA-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via local Ollama.") ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::URL ; "http://host.docker.internal:11434/api/generate") ; ; caught STYLE-WARNING: ; The variable URL is defined but never used. ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::EXECUTE-OLLAMA-REQUEST ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::PROMPT ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::SYSTEM-PROMPT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::EXECUTE-OLLAMA-REQUEST ; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::URL ; "http://host.docker.internal:11434/api/generate") ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::MODEL "llama3")) ; (FORMAT NIL "Executing local Ollama request on ~a" ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::MODEL)))) ; ; caught STYLE-WARNING: ; The variable PROMPT is defined but never used. ; ; caught STYLE-WARNING: ; The variable SYSTEM-PROMPT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::EXECUTE-OLLAMA-REQUEST in DEFUN ; in: ; PROGN (DEFUN EXECUTE-OLLAMA-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via local Ollama.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OLLAMA::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-provider-openai' in package ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI ; in: ; PROGN (DEFUN EXECUTE-OPENAI-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via the OpenAI API.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::EXECUTE-OPENAI-REQUEST ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::PROMPT ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::SYSTEM-PROMPT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::EXECUTE-OPENAI-REQUEST ; "Executes a completion request via the OpenAI API.")) ; ; caught STYLE-WARNING: ; The variable PROMPT is defined but never used. ; ; caught STYLE-WARNING: ; The variable SYSTEM-PROMPT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN EXECUTE-OPENAI-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via the OpenAI API.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::EXECUTE-OPENAI-REQUEST ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::PROMPT ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::SYSTEM-PROMPT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::EXECUTE-OPENAI-REQUEST ; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::API-KEY #)) ; (UNLESS ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::API-KEY ; (RETURN-FROM ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::EXECUTE-OPENAI-REQUEST ; "ERROR: Key missing")) ; (LET (#) ; (FORMAT NIL "Executing OpenAI request on ~a" ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::MODEL))))) ; ; caught STYLE-WARNING: ; The variable PROMPT is defined but never used. ; ; caught STYLE-WARNING: ; The variable SYSTEM-PROMPT is defined but never used. ; in: ; PROGN (DEFUN EXECUTE-OPENAI-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via the OpenAI API.") ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::GET-CONFIG-ATTRIBUTE ; :LLM_MODEL_OPENAI "gpt-4o") ; ; caught STYLE-WARNING: ; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::GET-CONFIG-ATTRIBUTE ; ; compilation unit finished ; Undefined function: ; GET-CONFIG-ATTRIBUTE ; caught 3 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::EXECUTE-OPENAI-REQUEST in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::GET-OPENAI-MODELS in DEFUN ; in: ; PROGN (DEFUN EXECUTE-OPENAI-REQUEST (PROMPT SYSTEM-PROMPT) ; "Executes a completion request via the OpenAI API.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENAI::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-provider-openrouter' in package ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER ; in: ; PROGN (DEFUN GET-OPENROUTER-TIERED-MODEL (TIER) ; (CASE TIER ; (:POWERFUL "anthropic/claude-3.5-sonnet") ; (:FAST "google/gemini-2.0-flash-001") ; (:FREE "openrouter/auto") ; (T "openrouter/auto"))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-router' in package ORG-AGENT.SKILLS.ORG-SKILL-ROUTER ; in: ; PROGN (DEFUN TRIGGER-SKILL-ROUTER (CONTEXT) ; "Triggers on :user-command or @agent requests in AST.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::TRIGGER-SKILL-ROUTER ; (ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::TRIGGER-SKILL-ROUTER ; "Triggers on :user-command or @agent requests in AST.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-ROUTER (CONTEXT) ; "Triggers on :user-command or @agent requests in AST.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::FIND-AGENT-REQUEST ; (ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::AST ; ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::AGENT-NAME) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::FIND-AGENT-REQUEST ; "Recursive search for addressed headlines.")) ; ; caught STYLE-WARNING: ; The variable AST is defined but never used. ; ; caught STYLE-WARNING: ; The variable AGENT-NAME is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN TRIGGER-SKILL-ROUTER (CONTEXT) ; "Triggers on :user-command or @agent requests in AST.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::VERIFY-SKILL-ROUTER ; (ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::PROPOSED-ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::VERIFY-SKILL-ROUTER ; "Executes delegation by injecting new stimuli.")) ; ; caught STYLE-WARNING: ; The variable PROPOSED-ACTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::FIND-AGENT-REQUEST in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-ROUTER (CONTEXT) ; "Triggers on :user-command or @agent requests in AST.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::VERIFY-SKILL-ROUTER ; (ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::PROPOSED-ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::VERIFY-SKILL-ROUTER ; (LET ((TYPE #)) ; (COND (# # NIL) (# # NIL) (T '#))))) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::VERIFY-SKILL-ROUTER in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::TRIGGER-SKILL-ROUTER in DEFUN KERNEL: Jailing skill 'org-skill-safety-harness' in package ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS ; in: ; PROGN (DEFUN SAFETY-HARNESS-VALIDATE (CODE-STRING) ; "Parses and walks the Elisp AST. Returns T if safe, NIL otherwise.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::SAFETY-HARNESS-VALIDATE ; (ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::CODE-STRING) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::SAFETY-HARNESS-VALIDATE ; "Parses and walks the Elisp AST. Returns T if safe, NIL otherwise.")) ; ; caught STYLE-WARNING: ; The variable CODE-STRING is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN SAFETY-HARNESS-VALIDATE (CODE-STRING) ; "Parses and walks the Elisp AST. Returns T if safe, NIL otherwise.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::SAFETY-HARNESS-WALK ; (ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::FORM) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::SAFETY-HARNESS-WALK ; "Recursive helper that inspects each atom and list in the S-expression.")) ; ; caught STYLE-WARNING: ; The variable FORM is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::SAFETY-HARNESS-WALK in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::SAFETY-HARNESS-VALIDATE in DEFUN ; in: ; PROGN (DEFUN SAFETY-HARNESS-VALIDATE (CODE-STRING) ; "Parses and walks the Elisp AST. Returns T if safe, NIL otherwise.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-SAFETY-HARNESS::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-scientist' in package ORG-AGENT.SKILLS.ORG-SKILL-SCIENTIST KERNEL: Jailing skill 'org-skill-scribe-rca' in package ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE-RCA ; in: ; PROGN (DEFUN SCRIBE-RCA-DRAFT (FAILURE-CONTEXT) ; "Drafts an RCA note based on a recent kernel failure." ; (LET* ((PAYLOAD (GETF FAILURE-CONTEXT :PAYLOAD)) ; (ERROR-MSG (GETF PAYLOAD :TEXT)) ; (TIMESTAMP (LOCAL-TIME:FORMAT-TIMESTRING NIL #)) ; (GITEA-URL (ORG-AGENT::GET-ENV "GITEA_URL"))) ; (ASK-NEURO ; (FORMAT NIL ; "Create a Root Cause Analysis (RCA) note for the following error: ~a" ; ERROR-MSG) ; :SYSTEM-PROMPT ; "You are the PSF Scribe. Extract the deep architectural failure and propose a new invariant for SOUL.org."))) ; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE-RCA::TIMESTAMP ; (LOCAL-TIME:FORMAT-TIMESTRING NIL (LOCAL-TIME:NOW))) ; ; caught STYLE-WARNING: ; The variable TIMESTAMP is defined but never used. ; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE-RCA::GITEA-URL ; (ORG-AGENT::GET-ENV "GITEA_URL")) ; ; caught STYLE-WARNING: ; The variable GITEA-URL is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN SCRIBE-RCA-DRAFT (FAILURE-CONTEXT) ; "Drafts an RCA note based on a recent kernel failure." ; (LET* ((PAYLOAD (GETF FAILURE-CONTEXT :PAYLOAD)) ; (ERROR-MSG (GETF PAYLOAD :TEXT)) ; (TIMESTAMP (LOCAL-TIME:FORMAT-TIMESTRING NIL #)) ; (GITEA-URL (ORG-AGENT::GET-ENV "GITEA_URL"))) ; (ASK-NEURO ; (FORMAT NIL ; "Create a Root Cause Analysis (RCA) note for the following error: ~a" ; ERROR-MSG) ; :SYSTEM-PROMPT ; "You are the PSF Scribe. Extract the deep architectural failure and propose a new invariant for SOUL.org."))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE-RCA::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE-RCA::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE-RCA::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-scribe' in package ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE ; in: ; PROGN (DEFUN SCRIBE-DISTILL-WEEKLY () ; "Main entry point for weekly knowledge synthesis.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-ENRICH-CONCEPT ; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::NOTE-ID) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-ENRICH-CONCEPT ; "Triggers neural analysis for linking and project ideas.")) ; ; caught STYLE-WARNING: ; The variable NOTE-ID is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN SCRIBE-DISTILL-WEEKLY () ; "Main entry point for weekly knowledge synthesis.") ; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::EXISTING-NOTES "") ; ; caught STYLE-WARNING: ; The variable EXISTING-NOTES is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-self-fix' in package ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX KERNEL: Jailing skill 'org-skill-shell-actuator' in package ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR ; in: ; PROGN (DEFUN EXECUTE-SHELL-SAFELY (ACTION) ; "Verifies command against whitelist and captures diagnostics.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::EXECUTE-SHELL-SAFELY ; (ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::ACTION) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::EXECUTE-SHELL-SAFELY ; "Verifies command against whitelist and captures diagnostics.")) ; ; caught STYLE-WARNING: ; The variable ACTION is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN EXECUTE-SHELL-SAFELY (ACTION) ; "Verifies command against whitelist and captures diagnostics.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::TRIGGER-SKILL-SHELL-ACTUATOR ; (ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::TRIGGER-SKILL-SHELL-ACTUATOR ; "Monitors for shell-response events.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN EXECUTE-SHELL-SAFELY (ACTION) ; "Verifies command against whitelist and captures diagnostics.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::NEURO-SKILL-SHELL-ACTUATOR ; (ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::NEURO-SKILL-SHELL-ACTUATOR ; "Neural interpretation of command diagnostics.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::EXECUTE-SHELL-SAFELY in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::TRIGGER-SKILL-SHELL-ACTUATOR in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::NEURO-SKILL-SHELL-ACTUATOR in DEFUN ; in: ; PROGN (DEFUN EXECUTE-SHELL-SAFELY (ACTION) ; "Verifies command against whitelist and captures diagnostics.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-SHELL-ACTUATOR::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-sub-agent-manager' in package ORG-AGENT.SKILLS.ORG-SKILL-SUB-AGENT-MANAGER ; in: ; PROGN (DEFUN SUB-AGENT-SPAWN (GOAL CONTEXT) ; "Creates a new thread and starts a localized cognitive loop.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SUB-AGENT-MANAGER::SUB-AGENT-SPAWN ; (ORG-AGENT.SKILLS.ORG-SKILL-SUB-AGENT-MANAGER::GOAL ; ORG-AGENT.SKILLS.ORG-SKILL-SUB-AGENT-MANAGER::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-SUB-AGENT-MANAGER::SUB-AGENT-SPAWN ; "Creates a new thread and starts a localized cognitive loop.")) ; ; caught STYLE-WARNING: ; The variable GOAL is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-SUB-AGENT-MANAGER::SUB-AGENT-SPAWN in DEFUN ; in: ; PROGN (DEFUN SUB-AGENT-SPAWN (GOAL CONTEXT) ; "Creates a new thread and starts a localized cognitive loop.") ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-SUB-AGENT-MANAGER::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-task-integrity' in package ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY ; in: ; PROGN (DEFUN SEMANTIC-STATE-CATEGORY (STATE) ; "Maps raw keywords to :active or :resolved categories.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::SEMANTIC-STATE-CATEGORY ; (ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::STATE) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::SEMANTIC-STATE-CATEGORY ; "Maps raw keywords to :active or :resolved categories.")) ; ; caught STYLE-WARNING: ; The variable STATE is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN SEMANTIC-STATE-CATEGORY (STATE) ; "Maps raw keywords to :active or :resolved categories.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::HAS-ACTIVE-CHILDREN-P ; (ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::PARENT-ID) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::HAS-ACTIVE-CHILDREN-P ; "Recursively checks for active subtasks.")) ; ; caught STYLE-WARNING: ; The variable PARENT-ID is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN SEMANTIC-STATE-CATEGORY (STATE) ; "Maps raw keywords to :active or :resolved categories.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::VERIFY-SKILL-TASK-INTEGRITY ; (ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::PROPOSED-ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::VERIFY-SKILL-TASK-INTEGRITY ; "System 2 gatekeeper for logical task consistency.")) ; ; caught STYLE-WARNING: ; The variable PROPOSED-ACTION is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::SEMANTIC-STATE-CATEGORY in DEFUN ; in: ; PROGN (DEFUN SEMANTIC-STATE-CATEGORY (STATE) ; "Maps raw keywords to :active or :resolved categories.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::HAS-ACTIVE-CHILDREN-P ; (ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::PARENT-ID) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::HAS-ACTIVE-CHILDREN-P ; NIL)) ; ; caught STYLE-WARNING: ; The variable PARENT-ID is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::HAS-ACTIVE-CHILDREN-P in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-TASK-INTEGRITY::VERIFY-SKILL-TASK-INTEGRITY in DEFUN KERNEL: Jailing skill 'org-skill-tdd-runner' in package ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER ; in: ; PROGN (DEFUN RUN-TESTS-FOR-PROJECT (PROJECT-NAME) ; "Executes the standard test suite for the given project using SBCL." ; (LET* ((PROJECTS-DIR (OR # "projects/")) ; (PROJECT-DIR ; (FORMAT NIL "~aorg-skill-~a/" PROJECTS-DIR PROJECT-NAME)) ; (TEST-FILE (FORMAT NIL "~atests/test-suite.lisp" PROJECT-DIR))) ; (KERNEL-LOG "CI - Running tests for ~a..." PROJECT-NAME) ; (IF (UIOP/FILESYSTEM:FILE-EXISTS-P TEST-FILE) ; (MULTIPLE-VALUE-BIND (OUTPUT ERROR-OUTPUT EXIT-CODE) ; (UIOP/RUN-PROGRAM:RUN-PROGRAM # :IGNORE-ERROR-STATUS T ; :OUTPUT :STRING :ERROR-OUTPUT ; :STRING) ; (IF # ; # ; #)) ; (KERNEL-LOG "CI ERROR - No test suite found for ~a at ~a" ; PROJECT-NAME TEST-FILE)))) ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::CONTEXT) ; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::FILE (GETF # :FILE))) ; (WHEN ; (AND ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::FILE ; (SEARCH "projects/" ; ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::FILE)) ; (LET (#) ; (WHEN # #))))) ; ; caught STYLE-WARNING: ; The variable ACTION is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-tech-analyst' in package ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST ; in: ; PROGN (DEFUN TECH-ANALYST-PERCEIVE-SIGNED-PROTOCOL (NOTE-PATH) ; "Checks if a master note has a SIGNED PROTOCOL and lacks a TDD suite in the material project." ; (LET* ((CONTENT (UIOP/STREAM:READ-FILE-STRING NOTE-PATH)) ; (FILENAME (PATHNAME-NAME NOTE-PATH)) ; (PROJECT-NAME (SUBSEQ FILENAME 10)) ; (PROJECTS-DIR (OR # "projects/")) ; (TEST-PATH ; (FORMAT NIL "~aorg-skill-~a/tests/test-suite.lisp" ; PROJECTS-DIR PROJECT-NAME))) ; (WHEN ; (AND (SEARCH "* Phase B: Blueprint (PROTOCOL)" CONTENT) ; (SEARCH ":STATUS: SIGNED" CONTENT) (NOT #)) ; `(:PROJECT-NAME ,PROJECT-NAME :NOTE-PATH ,NOTE-PATH :CONTENT ; ,CONTENT)))) ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TECH-ANALYST-ACTUATE ; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TECH-ANALYST-ACTUATE ; (LET* ((ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::PAYLOAD #) ; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::PROJECT-NAME #) ; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TEST-CONTENT #) ; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::PROJECTS-DIR #) ; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::PROJECT-DIR #) ; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TEST-DIR #) ; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TEST-PATH #)) ; (ORG-AGENT:KERNEL-LOG "ANALYST - Actuating TDD Suite for ~a" ; ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::PROJECT-NAME) ; (ENSURE-DIRECTORIES-EXIST ; ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TEST-DIR) ; (WITH-OPEN-FILE ; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::OUT ; ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TEST-PATH :DIRECTION ; :OUTPUT :IF-EXISTS :SUPERSEDE) ; (FORMAT ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::OUT ; ";;; TDD Suite for ~a~%~a" ; ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::PROJECT-NAME ; ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TEST-CONTENT)) ; (FORMAT NIL "SUCCESS - Technical Analyst established TDD Suite for ~a" ; ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::PROJECT-NAME)))) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition KERNEL: Jailing skill 'org-skill-web-interface' in package ORG-AGENT.SKILLS.ORG-SKILL-WEB-INTERFACE ; in: ; PROGN (DEFUN START-DASHBOARD (&OPTIONAL (PORT 8080)) ; "Starts the telemetry web server.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-WEB-INTERFACE::START-DASHBOARD ; (&OPTIONAL (ORG-AGENT.SKILLS.ORG-SKILL-WEB-INTERFACE::PORT 8080)) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-WEB-INTERFACE::START-DASHBOARD ; "Starts the telemetry web server.")) ; ; caught STYLE-WARNING: ; The variable PORT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-WEB-INTERFACE::START-DASHBOARD in DEFUN ; in: ; PROGN (DEFUN START-DASHBOARD (&OPTIONAL (PORT 8080)) ; "Starts the telemetry web server.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-WEB-INTERFACE::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-WEB-INTERFACE::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-WEB-INTERFACE::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-WEB-INTERFACE::CONTEXT) NIL) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 3 STYLE-WARNING conditions KERNEL: Jailing skill 'org-skill-web-research' in package ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH ; in: ; PROGN (DEFUN TRIGGER-SKILL-WEB-RESEARCH (CONTEXT) ; "Triggers on :delegation :target-skill :web.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::TRIGGER-SKILL-WEB-RESEARCH ; (ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::TRIGGER-SKILL-WEB-RESEARCH ; "Triggers on :delegation :target-skill :web.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-WEB-RESEARCH (CONTEXT) ; "Triggers on :delegation :target-skill :web.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::WEB-FETCH ; (ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::URL &OPTIONAL ; ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::ENGINE) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::WEB-FETCH ; "Dispatches fetch request to CLI engines.")) ; ; caught STYLE-WARNING: ; The variable URL is defined but never used. ; ; caught STYLE-WARNING: ; The variable ENGINE is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; in: ; PROGN (DEFUN TRIGGER-SKILL-WEB-RESEARCH (CONTEXT) ; "Triggers on :delegation :target-skill :web.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::NEURO-SKILL-WEB-RESEARCH ; (ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::CONTEXT) ; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::NEURO-SKILL-WEB-RESEARCH ; "Neural selection of engine and synthesis of fetched content.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::WEB-FETCH in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::NEURO-SKILL-WEB-RESEARCH in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-WEB-RESEARCH::TRIGGER-SKILL-WEB-RESEARCH in DEFUN KERNEL: Jailing skill 'org-skill-workspace-manager' in package ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER ; in: ; PROGN (DEFUN TRIGGER-SKILL-WORKSPACE-MANAGER (CONTEXT) ; "Triggers on :buffer-update or :heartbeat.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::TRIGGER-SKILL-WORKSPACE-MANAGER ; (ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::TRIGGER-SKILL-WORKSPACE-MANAGER ; "Triggers on :buffer-update or :heartbeat.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; in: ; PROGN (DEFUN TRIGGER-SKILL-WORKSPACE-MANAGER (CONTEXT) ; "Triggers on :buffer-update or :heartbeat.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::NEURO-SKILL-WORKSPACE-MANAGER ; (ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::NEURO-SKILL-WORKSPACE-MANAGER ; "Neural synthesis of archiving suggestions.")) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::TRIGGER-SKILL-WORKSPACE-MANAGER in DEFUN WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::ARCHIVE-COMPLETED-TASKS in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-WORKSPACE-MANAGER (CONTEXT) ; "Triggers on :buffer-update or :heartbeat.") ; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::NEURO-SKILL-WORKSPACE-MANAGER ; (ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::CONTEXT) ; (BLOCK ; ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::NEURO-SKILL-WORKSPACE-MANAGER ; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::READY-TO-ARCHIVE #) ; (ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::ARCHIVE-DIR #)) ; (IF ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::READY-TO-ARCHIVE ; (FORMAT NIL ; "I found these completed tasks: ~a. Should I move them to ~a?" ; ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::READY-TO-ARCHIVE ; ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::ARCHIVE-DIR) ; NIL)))) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::NEURO-SKILL-WORKSPACE-MANAGER in DEFUN ; in: ; PROGN (DEFUN TRIGGER-SKILL-WORKSPACE-MANAGER (CONTEXT) ; "Triggers on :buffer-update or :heartbeat.") ; (LAMBDA ; (ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::ACTION ; ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::CONTEXT) ; ORG-AGENT.SKILLS.ORG-SKILL-WORKSPACE-MANAGER::ACTION) ; ; caught STYLE-WARNING: ; The variable CONTEXT is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition