2498 lines
106 KiB
Plaintext
2498 lines
106 KiB
Plaintext
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: #<dynamic-extent STRING-INPUT-STREAM (unavailable) from "(progn (...">
|
|
|
|
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: #<dynamic-extent STRING-INPUT-STREAM (unavailable) from "(progn (...">
|
|
|
|
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: #<dynamic-extent STRING-INPUT-STREAM (unavailable) from "(progn (...">
|
|
|
|
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
|