From 65a14784d3cbcc4263fc6002f81e3f738d24ec57 Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Sat, 4 Apr 2026 13:37:47 -0400 Subject: [PATCH] feat: implemented verified Shell Actuator skill - Enabled execution of whitelisted shell commands via OACP. - Added neuro-cognitive analysis for command results. - Fixed authentication fallback for background daemon. - Finalized Emacs UI robustness for all message types. --- inbox.org | 71 + inbox/flight-plan-shell-actuator.org | 17 + inbox/flight-plan-system-state.org | 18 + notes/org-skill-chat.org | 18 +- notes/org-skill-emacs-bridge.org | 2 +- notes/org-skill-shell-actuator.org | 25 +- org-agent-shell.log | 2703 ++++++++++++++++++++++++++ org-agent-whitelist.log | 230 +++ package-lock.json | 6 + package.json | 1 + prove-shell.el | 38 + start-agent.sh | 4 + test-shell.lisp | 29 + 13 files changed, 3147 insertions(+), 15 deletions(-) create mode 100644 inbox/flight-plan-shell-actuator.org create mode 100644 inbox/flight-plan-system-state.org create mode 100644 org-agent-shell.log create mode 100644 org-agent-whitelist.log create mode 100644 package-lock.json create mode 100644 package.json create mode 100644 prove-shell.el create mode 100755 start-agent.sh create mode 100644 test-shell.lisp diff --git a/inbox.org b/inbox.org index 94b2ca8..b87b670 100644 --- a/inbox.org +++ b/inbox.org @@ -4331,3 +4331,74 @@ Clash is an open-source project, licensed under the permissive BSD2 license, and :END: TimesFM (Time Series Foundation Model) is a pretrained time-series foundation model developed by Google Research for time-series forecasting. + +* [[https://x.com/kevinnguyendn/status/2039719350798778688][andy nguyen on X: "Opensource Persistent & Portable Memory for Coding & Autonomous Agents " / X]] +:PROPERTIES: +:TITLE: andy nguyen on X: "Opensource Persistent & Portable Memory for Coding & Autonomous Agents " / X +:URI: https://x.com/kevinnguyendn/status/2039719350798778688 +:CREATED: [2026-04-04 Sat 11:10] +:END: + +* [[https://github.com/bddicken/tuitter][bddicken/tuitter: tuitter]] +:PROPERTIES: +:TITLE: bddicken/tuitter: tuitter +:URI: https://github.com/bddicken/tuitter +:CREATED: [2026-04-04 Sat 11:10] +:END: + +tuitter is a terminal UI client for X (Twitter) built with TypeScript and OpenTUI. +It lets you authenticate with your own X account and browse or interact with content directly from the terminal. + +* [[https://x.com/TheAhmadOsman/status/2040103488714068245][Ahmad on X: "GPU Memory Math for LLMs (2026 Edition)" / X]] +:PROPERTIES: +:TITLE: Ahmad on X: "GPU Memory Math for LLMs (2026 Edition)" / X +:URI: https://x.com/TheAhmadOsman/status/2040103488714068245 +:CREATED: [2026-04-04 Sat 11:11] +:END: + +* [[https://x.com/ryancarson/status/2039786704731541903][Ryan Carson on X: "How to turn your OpenClaw into the world's best assistant" / X]] +:PROPERTIES: +:TITLE: Ryan Carson on X: "How to turn your OpenClaw into the world's best assistant" / X +:URI: https://x.com/ryancarson/status/2039786704731541903 +:CREATED: [2026-04-04 Sat 11:12] +:END: + +* [[https://x.com/jack/status/2039003879841362278][jack on X: "From Hierarchy to Intelligence" / X]] +:PROPERTIES: +:TITLE: jack on X: "From Hierarchy to Intelligence" / X +:URI: https://x.com/jack/status/2039003879841362278 +:CREATED: [2026-04-04 Sat 11:13] +:END: + + + +** Thinking... + +* [[https://x.com/ashugarg/status/2039745286483128449][ashu garg on X: "Google's 20-year secret is now available to every enterprise" / X]] +:PROPERTIES: +:TITLE: ashu garg on X: "Google's 20-year secret is now available to every enterprise" / X +:URI: https://x.com/ashugarg/status/2039745286483128449 +:CREATED: [2026-04-04 Sat 11:13] +:END: + +* [[https://x.com/kevingu/status/2039843234760073341][Kevin Gu on X: "AutoAgent: first open source library for self-optimizing agents" / X]] +:PROPERTIES: +:TITLE: Kevin Gu on X: "AutoAgent: first open source library for self-optimizing agents" / X +:URI: https://x.com/kevingu/status/2039843234760073341 +:CREATED: [2026-04-04 Sat 11:14] +:END: + +* [[https://github.com/repowise-dev/claude-code-prompts][repowise-dev/claude-code-prompts: Independently authored prompt templates for AI coding agents — system prompts, tool prompts, agent delegation, memory management, and multi-agent coordination. Informed by studying Claude Code.]] +:PROPERTIES: +:TITLE: repowise-dev/claude-code-prompts: Independently authored prompt templates for AI coding agents — system prompts, tool prompts, agent delegation, memory management, and multi-agent coordination. Informed by studying Claude Code. +:URI: https://github.com/repowise-dev/claude-code-prompts +:CREATED: [2026-04-04 Sat 11:14] +:END: + +* [[https://github.com/block/goose][block/goose: an open source, extensible AI agent that goes beyond code suggestions - install, execute, edit, and test with any LLM]] +:PROPERTIES: +:TITLE: block/goose: an open source, extensible AI agent that goes beyond code suggestions - install, execute, edit, and test with any LLM +:URI: https://github.com/block/goose +:CREATED: [2026-04-04 Sat 11:15] +:END: + diff --git a/inbox/flight-plan-shell-actuator.org b/inbox/flight-plan-shell-actuator.org new file mode 100644 index 0000000..9c3b5f0 --- /dev/null +++ b/inbox/flight-plan-shell-actuator.org @@ -0,0 +1,17 @@ +* Flight Plan: Shell Actuator Implementation +:PROPERTIES: +:STATUS: IN-PROGRESS +:END: + +** Analyst Phase +The Shell Actuator is missing registration, uses the wrong function signature `(action)` instead of `(action context)`, and uses incorrect tangle paths. Additionally, the Chat Agent needs to know how to call the Shell Actuator. + +** Coder Phase +- [X] Create =inbox/flight-plan-shell-actuator.org= (this file). +- [ ] Update =notes/org-skill-shell-actuator.org= with correct tangle paths, signature, and registration. +- [ ] Update =notes/org-skill-chat.org= prompt to include an example of calling the shell. +- [ ] Tangle, clean build, and restart the daemon. + +** Tester Phase +1. Send a chat message asking the agent to run "date" or "ls". +2. Verify the agent executes it and returns the output to Emacs. \ No newline at end of file diff --git a/inbox/flight-plan-system-state.org b/inbox/flight-plan-system-state.org new file mode 100644 index 0000000..4f5c369 --- /dev/null +++ b/inbox/flight-plan-system-state.org @@ -0,0 +1,18 @@ +* Flight Plan: System State and Shell Actuator +:PROPERTIES: +:STATUS: IN-PROGRESS +:END: + +** Analyst Phase +The user has requested an update on the state of the system and a test run to realize where it is failing and what features we were working on. +We were implementing the Shell Actuator (=org-skill-shell-actuator.org=) to enable the agent to run commands like "date". We ran into connection/daemon-crashing issues and response formatting issues. + +** Coder Phase +- [X] Create =inbox/flight-plan-system-state.org= (this file). +- [ ] Run tests (=test-shell.lisp= and =prove-shell.el=). +- [ ] Inspect daemon logs to find the exact failure points. + +** Tester Phase +1. Start the daemon in the background using a robust method. +2. Run =test-shell.lisp= and =prove-shell.el=. +3. Review the output and identify the bugs. \ No newline at end of file diff --git a/notes/org-skill-chat.org b/notes/org-skill-chat.org index 8ae9dfe..f4af86a 100644 --- a/notes/org-skill-chat.org +++ b/notes/org-skill-chat.org @@ -56,10 +56,15 @@ Interfaces for conversational event handling and UI integration. Source of truth #+begin_src lisp :tangle ../projects/org-skill-chat/src/chat-logic.lisp (defun verify-skill-chat (proposed-action context) (if (and (listp proposed-action) - (eq (getf proposed-action :target) :emacs) - (eq (getf (getf proposed-action :payload) :action) :insert-at-end)) + (or (and (member (getf proposed-action :type) '(:request :REQUEST)) + (or (and (member (getf proposed-action :target) '(:emacs :EMACS)) + (member (getf (getf proposed-action :payload) :action) '(:insert-at-end :INSERT-AT-END))) + (and (member (getf proposed-action :target) '(:shell :SHELL)) + (getf (getf proposed-action :payload) :cmd)))) + (member (getf proposed-action :type) '(:response :RESPONSE :log :LOG)))) proposed-action - '(:type :REQUEST :target :emacs :payload (:action :insert-at-end :buffer "*org-agent-chat*" :text "\n\n*System Error:* Chat agent failed to format response as a valid Lisp action.")))) + (let ((err-text (format nil "\n\n*System Error:* Chat agent returned invalid action: ~s" proposed-action))) + `(:type :request :target :emacs :payload (:action :insert-at-end :buffer "*org-agent-chat*" :text ,err-text))))) #+end_src ** Neural Response Generation @@ -87,8 +92,11 @@ EXAMPLE OF A BAD RESPONSE: Okay, here is your answer: (:type :request ...) -EXAMPLE OF A GOOD RESPONSE: -(:type :request :target :emacs :payload (:action :insert-at-end :buffer \"*org-agent-chat*\" :text \"* \"))" assistant user)))) +EXAMPLE OF A GOOD RESPONSE (CHAT): +(:type :request :target :emacs :payload (:action :insert-at-end :buffer \"*org-agent-chat*\" :text \"* \")) + +EXAMPLE OF A GOOD RESPONSE (SHELL EXECUTION): +(:type :request :target :shell :payload (:cmd \"ls -la\"))" assistant user)))) #+end_src * Registration diff --git a/notes/org-skill-emacs-bridge.org b/notes/org-skill-emacs-bridge.org index bb38b96..ffdd574 100644 --- a/notes/org-skill-emacs-bridge.org +++ b/notes/org-skill-emacs-bridge.org @@ -64,7 +64,7 @@ Interfaces for TCP I/O and protocol framing. Source of truth is the OACP specifi (msg (prin1-to-string envelope)) (len (length msg)) (framed (format nil "~6,'0x~a" len msg))) - (write-string (string-downcase framed) stream) + (write-string framed stream) (finish-output stream))) (defun broadcast-to-emacs (action-plist context) diff --git a/notes/org-skill-shell-actuator.org b/notes/org-skill-shell-actuator.org index e281a11..1a58a6b 100644 --- a/notes/org-skill-shell-actuator.org +++ b/notes/org-skill-shell-actuator.org @@ -48,21 +48,23 @@ Interfaces for secure system calls. State is event-driven via the core kernel bu * Phase D: Build (Implementation) ** Whitelisting & Execution -#+begin_src lisp :tangle projects/org-skill-shell-actuator/src/shell-logic.lisp +#+begin_src lisp :tangle ../projects/org-skill-shell-actuator/src/shell-logic.lisp (defparameter *allowed-commands* '("ls" "git" "rg" "grep" "date" "echo" "cat" "node" "python3" "sbcl")) -(defun execute-shell-safely (action) +(defun execute-shell-safely (action context) (let* ((cmd-string (getf (getf action :payload) :cmd)) (executable (car (uiop:split-string cmd-string :separator '(#\Space))))) (if (member executable *allowed-commands* :test #'string=) (multiple-value-bind (stdout stderr exit-code) (uiop:run-program cmd-string :output :string :error-output :string :ignore-error-status t) (org-agent:inject-stimulus - `(:type :EVENT :payload (:sensor :shell-response :cmd ,cmd-string :stdout ,(or stdout "") :stderr ,(or stderr "") :exit-code ,exit-code)))) + `(:type :EVENT :payload (:sensor :shell-response :cmd ,cmd-string :stdout ,(or stdout "") :stderr ,(or stderr "") :exit-code ,exit-code)) + :stream (getf context :reply-stream))) (org-agent:inject-stimulus - `(:type :EVENT :payload (:sensor :shell-response :cmd ,cmd-string :stdout "" :stderr "ERROR - Command not in security whitelist." :exit-code 1)))))) + `(:type :EVENT :payload (:sensor :shell-response :cmd ,cmd-string :stdout "" :stderr "ERROR - Command not in security whitelist." :exit-code 1)) + :stream (getf context :reply-stream))))) -(defun execute-sandboxed-script (action) +(defun execute-sandboxed-script (action context) "Executes a synthesized script (Python/Lisp/JS) in a controlled directory. This enables SOTA-level Tool Synthesis and Iterative Fixing." (let* ((payload (getf action :payload)) @@ -83,7 +85,8 @@ Interfaces for secure system calls. State is event-driven via the core kernel bu (multiple-value-bind (stdout stderr exit-code) (uiop:run-program cmd :output :string :error-output :string :ignore-error-status t) (org-agent:inject-stimulus - `(:type :EVENT :payload (:sensor :shell-response :cmd ,cmd :stdout ,(or stdout "") :stderr ,(or stderr "") :exit-code ,exit-code :synthesis-p t))))))) + `(:type :EVENT :payload (:sensor :shell-response :cmd ,cmd :stdout ,(or stdout "") :stderr ,(or stderr "") :exit-code ,exit-code :synthesis-p t)) + :stream (getf context :reply-stream)))))) (defun provision-microvm (id &key (cpu 1) (ram 512)) "Hardware-Level Isolation: Provisions an ephemeral Firecracker MicroVM. @@ -94,7 +97,7 @@ Interfaces for secure system calls. State is event-driven via the core kernel bu #+end_src ** Feedback Perception -#+begin_src lisp :tangle projects/org-skill-shell-actuator/src/shell-logic.lisp +#+begin_src lisp :tangle ../projects/org-skill-shell-actuator/src/shell-logic.lisp (defun trigger-skill-shell-actuator (context) (let ((type (getf context :type)) (payload (getf context :payload))) @@ -103,7 +106,7 @@ Interfaces for secure system calls. State is event-driven via the core kernel bu #+end_src ** Neuro-Cognitive Analysis -#+begin_src lisp :tangle projects/org-skill-shell-actuator/src/shell-logic.lisp +#+begin_src lisp :tangle ../projects/org-skill-shell-actuator/src/shell-logic.lisp (defun neuro-skill-shell-actuator (context) (let* ((p (getf context :payload)) (cmd (getf p :cmd)) @@ -122,11 +125,15 @@ Interfaces for secure system calls. State is event-driven via the core kernel bu If the command failed (Exit != 0), analyze the STDERR and propose a FIX for the script. If it succeeded, use the STDOUT to complete the original goal. " cmd exit-code stdout stderr) - (format nil "Command: ~a (Exit: ~a)~%STDOUT: ~a~%STDERR: ~a" cmd exit-code stdout stderr)))) + (let ((result-text (format nil "* Shell Command Result\n- Command: ~a\n- Exit Code: ~a\n\n** STDOUT\n#+begin_example\n~a\n#+end_example\n\n** STDERR\n#+begin_example\n~a\n#+end_example" + cmd exit-code stdout stderr))) + `(:type :request :target :emacs :payload (:action :insert-at-end :buffer "*org-agent-chat*" :text ,result-text)))))) #+end_src * Registration #+begin_src lisp +(org-agent:register-actuator :shell #'execute-shell-safely) + (defskill :skill-shell-actuator :priority 80 :trigger #'trigger-skill-shell-actuator diff --git a/org-agent-shell.log b/org-agent-shell.log new file mode 100644 index 0000000..ed9e2d9 --- /dev/null +++ b/org-agent-shell.log @@ -0,0 +1,2703 @@ +KERNEL: Loading environment from /home/user/.local/share/org-agent/.env +DAEMON: Binding to 0.0.0.0:9105... +================================================== + org-agent Kernel Booted Successfully. + Daemon Listening: 0.0.0.0:9105 +================================================== +KERNEL: Jailing skill 'org-skill-architect' in package ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT +; in: +; PROGN (DEFUN ARCHITECT-PERCEIVE-FROZEN-PRD (PROJECT-NAME) +; "Checks if a project has a FROZEN PRD.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::ARCHITECT-PERCEIVE-FROZEN-PRD +; (ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::PROJECT-NAME) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::ARCHITECT-PERCEIVE-FROZEN-PRD +; "Checks if a project has a FROZEN PRD.")) +; +; caught STYLE-WARNING: +; The variable PROJECT-NAME is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +; in: +; PROGN (DEFUN ARCHITECT-PERCEIVE-FROZEN-PRD (PROJECT-NAME) +; "Checks if a project has a FROZEN PRD.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::ARCHITECT-ACTUATE +; (ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::PROJECT-NAME +; ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::BLUEPRINT-CONTENT) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::ARCHITECT-ACTUATE +; "Physically writes the PROTOCOL.org file.")) +; +; caught STYLE-WARNING: +; The variable PROJECT-NAME is defined but never used. +; +; caught STYLE-WARNING: +; The variable BLUEPRINT-CONTENT is defined but never used. +; +; compilation unit finished +; caught 2 STYLE-WARNING conditions +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::ARCHITECT-PERCEIVE-FROZEN-PRD in DEFUN +; in: +; PROGN (DEFUN ARCHITECT-PERCEIVE-FROZEN-PRD (PROJECT-NAME) +; "Checks if a project has a FROZEN PRD.") +; (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 +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-ARCHITECT::ARCHITECT-ACTUATE in DEFUN +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 +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-AUTH-API-KEY::AUTH-API-KEY-GET-CREDENTIALS in DEFUN +; in: +; PROGN (DEFUN AUTH-API-KEY-GET-CREDENTIALS () +; "Returns a plist containing the :api-key for the default provider.") +; (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 (DEFUN AUTH-GOOGLE-GET-URL () +; "Generates the URL for the user to visit in their browser.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::AUTH-GOOGLE-RECEIVE-CODE +; (ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::CODE) +; (BLOCK +; ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::AUTH-GOOGLE-RECEIVE-CODE +; "Exchanges the manual code for tokens and persists them.")) +; +; caught STYLE-WARNING: +; The variable CODE is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::AUTH-GOOGLE-RECEIVE-CODE in DEFUN +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::AUTH-GOOGLE-GET-HEADER in DEFUN +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-AUTH-GOOGLE-OAUTH::AUTH-GOOGLE-GET-URL in DEFUN +; in: +; PROGN (DEFUN AUTH-GOOGLE-GET-URL () +; "Generates the URL for the user to visit in their browser.") +; (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 +; in: +; PROGN (DEFUN CHAOS-INJECT-ERROR (SENSOR-TYPE) +; "Injects a synthetic error into a specific sensor pipeline." +; (KERNEL-LOG "CHAOS - Injecting synthetic error into ~a sensor..." +; SENSOR-TYPE) +; (INJECT-STIMULUS +; `(:TYPE :EVENT :PAYLOAD +; (:SENSOR ,SENSOR-TYPE :ERROR "SYNTHETIC_CHAOS_ERROR")))) +; (LAMBDA +; (ORG-AGENT.SKILLS.ORG-SKILL-CHAOS::ACTION +; ORG-AGENT.SKILLS.ORG-SKILL-CHAOS::CONTEXT) +; ORG-AGENT.SKILLS.ORG-SKILL-CHAOS::ACTION) +; +; caught STYLE-WARNING: +; The variable CONTEXT is defined but never used. + +; (LAMBDA (ORG-AGENT.SKILLS.ORG-SKILL-CHAOS::CONTEXT) +; "Analyze the failure and verify recovery path.") +; +; caught STYLE-WARNING: +; The variable CONTEXT is defined but never used. +; +; compilation unit finished +; caught 2 STYLE-WARNING conditions +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 +; '(:TYPE :REQUEST :TARGET :EMACS :PAYLOAD +; (:ACTION :INSERT-AT-END :BUFFER "*org-agent-chat*" :TEXT +; "nn*System Error:* Chat agent failed to format response as a valid Lisp 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-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-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 +; in: +; PROGN (DEFUN TRIGGER-SKILL-CRON (CONTEXT) "Triggers on :sensor :heartbeat.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CRON::TRIGGER-SKILL-CRON +; (ORG-AGENT.SKILLS.ORG-SKILL-CRON::CONTEXT) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CRON::TRIGGER-SKILL-CRON +; "Triggers on :sensor :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-CRON (CONTEXT) "Triggers on :sensor :heartbeat.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CRON::PARSE-ORG-TIMESTAMP +; (ORG-AGENT.SKILLS.ORG-SKILL-CRON::TS-STR) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CRON::PARSE-ORG-TIMESTAMP +; "Converts Org timestamp string to machine-comparable format.")) +; +; caught STYLE-WARNING: +; The variable TS-STR is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +; in: +; PROGN (DEFUN TRIGGER-SKILL-CRON (CONTEXT) "Triggers on :sensor :heartbeat.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-CRON::NEURO-SKILL-CRON +; (ORG-AGENT.SKILLS.ORG-SKILL-CRON::CONTEXT) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-CRON::NEURO-SKILL-CRON +; "Neural drafting of alerts for overdue tasks.")) +; +; caught STYLE-WARNING: +; The variable CONTEXT is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +; in: +; PROGN (DEFUN TRIGGER-SKILL-CRON (CONTEXT) "Triggers on :sensor :heartbeat.") +; (ORG-AGENT.SKILLS.ORG-SKILL-CRON::TRIGGER-NIGHTLY-GROOMING) +; +; caught STYLE-WARNING: +; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-CRON::TRIGGER-NIGHTLY-GROOMING +; +; compilation unit finished +; Undefined function: +; TRIGGER-NIGHTLY-GROOMING +; caught 1 STYLE-WARNING condition +WARNING: redefining ORG-AGENT.SKILLS.ORG-SKILL-CRON::TRIGGER-SKILL-CRON in DEFUN +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-CRON::PARSE-ORG-TIMESTAMP in DEFUN +; in: +; PROGN (DEFUN TRIGGER-SKILL-CRON (CONTEXT) "Triggers on :sensor :heartbeat.") +; (* ORG-AGENT.SKILLS.ORG-SKILL-CRON::DAYS 24 60 60) +; +; caught WARNING: +; undefined variable: ORG-AGENT.SKILLS.ORG-SKILL-CRON::DAYS +; +; compilation unit finished +; Undefined variable: +; DAYS +; caught 1 WARNING condition +READER ERROR in skill 'org-skill-cron': The variable DAYS is unbound. + +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-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-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-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-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) +; "Executes a completion request via the Google Gemini API.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI::EXECUTE-GEMINI-REQUEST +; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI::PROMPT +; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI::SYSTEM-PROMPT) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI::EXECUTE-GEMINI-REQUEST +; "Executes a completion request via the Google Gemini 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 +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-GEMINI::EXECUTE-GEMINI-REQUEST in DEFUN +; in: +; PROGN (DEFUN EXECUTE-GEMINI-REQUEST (PROMPT SYSTEM-PROMPT) +; "Executes a completion request via the Google Gemini API.") +; (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 EXECUTE-OPENROUTER-REQUEST (PROMPT SYSTEM-PROMPT) +; "Executes a completion request via the OpenRouter API.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::EXECUTE-OPENROUTER-REQUEST +; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::PROMPT +; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::SYSTEM-PROMPT) +; (BLOCK +; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::EXECUTE-OPENROUTER-REQUEST +; "Executes a completion request via the OpenRouter 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-OPENROUTER-REQUEST (PROMPT SYSTEM-PROMPT) +; "Executes a completion request via the OpenRouter API.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::GET-OPENROUTER-TIERED-MODEL +; (ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::TIER) +; (BLOCK +; ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::GET-OPENROUTER-TIERED-MODEL +; "Returns the preferred model ID for a given tier.")) +; +; caught STYLE-WARNING: +; The variable TIER is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::GET-OPENROUTER-TIERED-MODEL in DEFUN +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-PROVIDER-OPENROUTER::EXECUTE-OPENROUTER-REQUEST in DEFUN +; in: +; PROGN (DEFUN EXECUTE-OPENROUTER-REQUEST (PROMPT SYSTEM-PROMPT) +; "Executes a completion request via the OpenRouter API.") +; (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 +; in: +; PROGN (DEFUN TRIGGER-SKILL-ROUTER (CONTEXT) +; "Triggers on :user-command or @agent requests in AST.") +; #'ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::NEURO-SKILL-ROUTER +; +; caught STYLE-WARNING: +; undefined function: ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::NEURO-SKILL-ROUTER +; +; compilation unit finished +; Undefined function: +; NEURO-SKILL-ROUTER +; caught 1 STYLE-WARNING condition +READER ERROR in skill 'org-skill-router': The function + ORG-AGENT.SKILLS.ORG-SKILL-ROUTER::NEURO-SKILL-ROUTER + is undefined. + +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 +; in: +; PROGN (DEFUN SCIENTIST-FORMULATE-HYPOTHESIS (FAILURE-LOG) +; "Analyzes an error and proposes a 'Theory of Failure'. +; Then triggers the Self-Fix agent." +; (LET ((HYPOTHESIS +; (ASK-NEURO # :SYSTEM-PROMPT +; "You are a PSF Senior Debugging Scientist. Use formal logic and propose a fix in Lisp."))) +; (KERNEL-LOG +; "SCIENTIST - Hypothesis formulated. Triggering SELF-FIX...") +; (INJECT-STIMULUS +; `(:TYPE :EVENT :PAYLOAD +; (:SENSOR :REPAIR-REQUEST :HYPOTHESIS ,HYPOTHESIS :FAILURE-LOG +; ,FAILURE-LOG))))) +; (LAMBDA +; (ORG-AGENT.SKILLS.ORG-SKILL-SCIENTIST::ACTION +; ORG-AGENT.SKILLS.ORG-SKILL-SCIENTIST::CONTEXT) +; ORG-AGENT.SKILLS.ORG-SKILL-SCIENTIST::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-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-SCAN-FOR-KNOWLEDGE-GAPS () +; "Identifies new daily captures via git diff.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-DISTILL-CONCEPT +; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::DAILY-PATH +; ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::CONCEPT-META) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-DISTILL-CONCEPT +; "Transforms raw data into a permanent node.")) +; +; caught STYLE-WARNING: +; The variable DAILY-PATH is defined but never used. +; +; caught STYLE-WARNING: +; The variable CONCEPT-META is defined but never used. +; +; compilation unit finished +; caught 2 STYLE-WARNING conditions +; in: +; PROGN (DEFUN SCRIBE-SCAN-FOR-KNOWLEDGE-GAPS () +; "Identifies new daily captures via git diff.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-AUDIT-FOUNDRY-MANDATE +; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::PROJECT-NAME) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-AUDIT-FOUNDRY-MANDATE +; "Checks for mandatory PSF artifacts.")) +; +; caught STYLE-WARNING: +; The variable PROJECT-NAME is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-SCAN-FOR-KNOWLEDGE-GAPS in DEFUN +; in: +; PROGN (DEFUN SCRIBE-SCAN-FOR-KNOWLEDGE-GAPS () +; "Identifies new daily captures via git diff.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-DISTILL-CONCEPT +; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::DAILY-PATH +; ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::CONCEPT-META) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-DISTILL-CONCEPT +; (LET* ((ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::TITLE #) +; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::CONTENT #) +; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SOURCE #) +; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::FILENAME #) +; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::TARGET-PATH #)) +; (WITH-OPEN-FILE +; (ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::OUT +; ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::TARGET-PATH :DIRECTION :OUTPUT +; :IF-EXISTS :SUPERSEDE) +; (FORMAT ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::OUT +; "#+TITLE: ~a~%#+ID: ~a~%~%Source: [[file:~a]]~%~%~a" +; ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::TITLE # +; ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SOURCE +; ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::CONTENT)) +; ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::TARGET-PATH))) +; +; caught STYLE-WARNING: +; The variable DAILY-PATH is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-SCRIBE::SCRIBE-DISTILL-CONCEPT in DEFUN +KERNEL: Jailing skill 'org-skill-self-fix' in package ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX +; in: +; PROGN (DEFUN SELF-FIX-APPLY (TARGET-FILE OLD-CODE NEW-CODE) +; "Applies a surgical code fix in a sandboxed environment." +; (LET* ((SANDBOX-DIR "/tmp/org-agent-sandbox/fix/") +; (TARGET-PATH (MERGE-PATHNAMES TARGET-FILE SANDBOX-DIR))) +; (ENSURE-DIRECTORIES-EXIST SANDBOX-DIR) +; (KERNEL-LOG "SELF-FIX - Applying surgical fix to ~a..." TARGET-FILE) +; (WITH-OPEN-FILE +; (OUT TARGET-PATH :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) +; (WRITE-STRING NEW-CODE OUT)) +; (KERNEL-LOG "SELF-FIX - Fix applied to sandbox: ~a" TARGET-PATH))) +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::SELF-FIX-APPLY +; (ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::TARGET-FILE +; ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::OLD-CODE +; ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::NEW-CODE) +; "Applies a surgical code fix in a sandboxed environment." +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::SELF-FIX-APPLY +; (LET* ((ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::SANDBOX-DIR +; "/tmp/org-agent-sandbox/fix/") +; (ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::TARGET-PATH #)) +; (ENSURE-DIRECTORIES-EXIST +; ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::SANDBOX-DIR) +; (ORG-AGENT:KERNEL-LOG "SELF-FIX - Applying surgical fix to ~a..." +; ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::TARGET-FILE) +; (WITH-OPEN-FILE +; (ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::OUT +; ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::TARGET-PATH :DIRECTION +; :OUTPUT :IF-EXISTS :SUPERSEDE) +; (WRITE-STRING ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::NEW-CODE +; ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::OUT)) +; (ORG-AGENT:KERNEL-LOG "SELF-FIX - Fix applied to sandbox: ~a" +; ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::TARGET-PATH)))) +; +; caught STYLE-WARNING: +; The variable OLD-CODE is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +; in: +; PROGN (DEFUN SELF-FIX-APPLY (TARGET-FILE OLD-CODE NEW-CODE) +; "Applies a surgical code fix in a sandboxed environment." +; (LET* ((SANDBOX-DIR "/tmp/org-agent-sandbox/fix/") +; (TARGET-PATH (MERGE-PATHNAMES TARGET-FILE SANDBOX-DIR))) +; (ENSURE-DIRECTORIES-EXIST SANDBOX-DIR) +; (KERNEL-LOG "SELF-FIX - Applying surgical fix to ~a..." TARGET-FILE) +; (WITH-OPEN-FILE +; (OUT TARGET-PATH :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE) +; (WRITE-STRING NEW-CODE OUT)) +; (KERNEL-LOG "SELF-FIX - Fix applied to sandbox: ~a" TARGET-PATH))) +; (LAMBDA +; (ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::ACTION +; ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::CONTEXT) +; (LET ((ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::P +; (GETF ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::ACTION :PAYLOAD))) +; (ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::SELF-FIX-APPLY +; (GETF ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::P :FILE) +; (GETF ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::P :OLD) +; (GETF ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::P :NEW)) +; (ORG-AGENT:KERNEL-LOG "SELF-FIX - Logic verified. Merging...") +; ORG-AGENT.SKILLS.ORG-SKILL-SELF-FIX::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-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 TDD-RUNNER-PERCEIVE-CHANGE (PROJECT-NAME) +; "Triggered when a project file is modified; initiates the test loop.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::TDD-RUNNER-PERCEIVE-CHANGE +; (ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::PROJECT-NAME) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::TDD-RUNNER-PERCEIVE-CHANGE +; "Triggered when a project file is modified; initiates the test loop.")) +; +; caught STYLE-WARNING: +; The variable PROJECT-NAME is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +; in: +; PROGN (DEFUN TDD-RUNNER-PERCEIVE-CHANGE (PROJECT-NAME) +; "Triggered when a project file is modified; initiates the test loop.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::TDD-RUNNER-EXECUTE +; (ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::PROJECT-NAME) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::TDD-RUNNER-EXECUTE +; "Executes the standard test suite for the given project.")) +; +; caught STYLE-WARNING: +; The variable PROJECT-NAME is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +; in: +; PROGN (DEFUN TDD-RUNNER-PERCEIVE-CHANGE (PROJECT-NAME) +; "Triggered when a project file is modified; initiates the test loop.") +; (ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::LISP-TESTS +; (FORMAT NIL "~atest-suite.lisp" +; ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::TEST-DIR)) +; +; caught STYLE-WARNING: +; The variable LISP-TESTS is defined but never used. + +; (ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::PYTHON-TESTS +; (FORMAT NIL "~asimulate_*.py" +; ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::TEST-DIR)) +; +; caught STYLE-WARNING: +; The variable PYTHON-TESTS is defined but never used. +; +; compilation unit finished +; caught 2 STYLE-WARNING conditions +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-TDD-RUNNER::TDD-RUNNER-EXECUTE in DEFUN +; in: +; PROGN (DEFUN TDD-RUNNER-PERCEIVE-CHANGE (PROJECT-NAME) +; "Triggered when a project file is modified; initiates the test loop.") +; (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 (PROJECT-NAME) +; "Checks if a project has a SIGNED PROTOCOL.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TECH-ANALYST-PERCEIVE-SIGNED-PROTOCOL +; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::PROJECT-NAME) +; (BLOCK +; ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TECH-ANALYST-PERCEIVE-SIGNED-PROTOCOL +; "Checks if a project has a SIGNED PROTOCOL.")) +; +; caught STYLE-WARNING: +; The variable PROJECT-NAME is defined but never used. +; +; compilation unit finished +; caught 1 STYLE-WARNING condition +; in: +; PROGN (DEFUN TECH-ANALYST-PERCEIVE-SIGNED-PROTOCOL (PROJECT-NAME) +; "Checks if a project has a SIGNED PROTOCOL.") +; (SB-INT:NAMED-LAMBDA ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TECH-ANALYST-ACTUATE +; (ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::PROJECT-NAME +; ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TEST-CONTENT) +; (BLOCK ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TECH-ANALYST-ACTUATE +; "Physically writes the TDD suite to tests/.")) +; +; caught STYLE-WARNING: +; The variable PROJECT-NAME is defined but never used. +; +; caught STYLE-WARNING: +; The variable TEST-CONTENT is defined but never used. +; +; compilation unit finished +; caught 2 STYLE-WARNING conditions +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TECH-ANALYST-PERCEIVE-SIGNED-PROTOCOL in DEFUN +; in: +; PROGN (DEFUN TECH-ANALYST-PERCEIVE-SIGNED-PROTOCOL (PROJECT-NAME) +; "Checks if a project has a SIGNED PROTOCOL.") +; (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 +WARNING: + redefining ORG-AGENT.SKILLS.ORG-SKILL-TECH-ANALYST::TECH-ANALYST-ACTUATE in DEFUN +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 +KERNEL: Heartbeat pulse... +PERCEIVE: EVENT (HEARTBEAT) +MEMORY - Object Store snapshot created. +SYSTEM 1: Engaging skill 'skill-object-store-persistence' + +MEMORY - Dumping knowledge graph image to $MEMEX_DIR/state/memory-image.lisp... +SYSTEM 2: Verified by skill 'skill-object-store-persistence'. + +ACTUATOR [System] - Memory image dumped. +DAEMON: New client connected. + +DAEMON: Received stimulus (105 characters) + +PERCEIVE: EVENT (CHAT-MESSAGE) +MEMORY - Object Store snapshot created. +SYSTEM 1: Engaging skill 'skill-chat' + +SYSTEM 1: Attempting backend OPENROUTER... +SYSTEM 1: Attempting backend OPENROUTER... +SYSTEM 1 Suggestion: (:type :response :result "Mon Oct 21 14:35:00 UTC 2024") + +SYSTEM 2: Verified by skill 'skill-chat'. + +DAEMON: Received stimulus (53 characters) + +PERCEIVE: RESPONSE (no-sensor) +ACT RESULT: SUCCESS +MEMORY - Object Store snapshot created. +DAEMON: Client disconnected. + +KERNEL: Heartbeat pulse... +PERCEIVE: EVENT (HEARTBEAT) +MEMORY - Object Store snapshot created. +SYSTEM 1: Engaging skill 'skill-object-store-persistence' + +MEMORY - Dumping knowledge graph image to $MEMEX_DIR/state/memory-image.lisp... +SYSTEM 2: Verified by skill 'skill-object-store-persistence'. + +ACTUATOR [System] - Memory image dumped. +KERNEL: Heartbeat pulse... +PERCEIVE: EVENT (HEARTBEAT) +MEMORY - Object Store snapshot created. +SYSTEM 1: Engaging skill 'skill-object-store-persistence' + +MEMORY - Dumping knowledge graph image to $MEMEX_DIR/state/memory-image.lisp... +SYSTEM 2: Verified by skill 'skill-object-store-persistence'. + +ACTUATOR [System] - Memory image dumped. diff --git a/org-agent-whitelist.log b/org-agent-whitelist.log new file mode 100644 index 0000000..e2c3b5e --- /dev/null +++ b/org-agent-whitelist.log @@ -0,0 +1,230 @@ +KERNEL: Loading environment from /home/user/.local/share/org-agent/.env +DAEMON: Binding to 0.0.0.0:9105... +================================================== + org-agent Kernel Booted Successfully. + Daemon Listening: 0.0.0.0:9105 +================================================== +KERNEL: Skipping skill org-skill-architect (Not in whitelist) +KERNEL: Skipping skill org-skill-ast-normalization (Not in whitelist) +KERNEL: Skipping skill org-skill-atomic-notes (Not in whitelist) +KERNEL: Skipping skill org-skill-auth-api-key (Not in whitelist) +KERNEL: Skipping skill org-skill-auth-google-oauth (Not in whitelist) +KERNEL: Skipping skill org-skill-brain-mapper (Not in whitelist) +KERNEL: Skipping skill org-skill-chaos (Not in whitelist) +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: Skipping skill org-skill-consensus (Not in whitelist) +KERNEL: Skipping skill org-skill-creator (Not in whitelist) +KERNEL: Skipping skill org-skill-cron (Not in whitelist) +KERNEL: Skipping skill org-skill-diagrammer (Not in whitelist) +KERNEL: Skipping skill org-skill-economist (Not in whitelist) +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: Skipping skill org-skill-formal-verification (Not in whitelist) +KERNEL: Skipping skill org-skill-function-calling (Not in whitelist) +KERNEL: Skipping skill org-skill-groomer (Not in whitelist) +KERNEL: Skipping skill org-skill-gtd (Not in whitelist) +KERNEL: Skipping skill org-skill-hardware-inhabitation (Not in whitelist) +KERNEL: Skipping skill org-skill-hyper-graph (Not in whitelist) +KERNEL: Skipping skill org-skill-inbound-gateway (Not in whitelist) +KERNEL: Skipping skill org-skill-long-horizon (Not in whitelist) +KERNEL: Skipping skill org-skill-memex (Not in whitelist) +KERNEL: Skipping skill org-skill-model-explorer (Not in whitelist) +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: Skipping skill org-skill-onboarding (Not in whitelist) +KERNEL: Skipping skill org-skill-org-delivery (Not in whitelist) +KERNEL: Skipping skill org-skill-org-gtd-archive-roam-daily (Not in whitelist) +KERNEL: Skipping skill org-skill-org-json-bridge (Not in whitelist) +KERNEL: Skipping skill org-skill-org-mode (Not in whitelist) +KERNEL: Skipping skill org-skill-project-foundry (Not in whitelist) +KERNEL: Skipping skill org-skill-project-manager (Not in whitelist) +KERNEL: Skipping skill org-skill-provider-anthropic (Not in whitelist) +KERNEL: Skipping skill org-skill-provider-gemini (Not in whitelist) +KERNEL: Skipping skill org-skill-provider-ollama (Not in whitelist) +KERNEL: Skipping skill org-skill-provider-openai (Not in whitelist) +KERNEL: Skipping skill org-skill-provider-openrouter (Not in whitelist) +KERNEL: Skipping skill org-skill-router (Not in whitelist) +KERNEL: Skipping skill org-skill-safety-harness (Not in whitelist) +KERNEL: Skipping skill org-skill-scientist (Not in whitelist) +KERNEL: Skipping skill org-skill-scribe-rca (Not in whitelist) +KERNEL: Skipping skill org-skill-scribe (Not in whitelist) +KERNEL: Skipping skill org-skill-self-fix (Not in whitelist) +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: Skipping skill org-skill-sub-agent-manager (Not in whitelist) +KERNEL: Skipping skill org-skill-task-integrity (Not in whitelist) +KERNEL: Skipping skill org-skill-tdd-runner (Not in whitelist) +KERNEL: Skipping skill org-skill-tech-analyst (Not in whitelist) +KERNEL: Skipping skill org-skill-web-interface (Not in whitelist) +KERNEL: Skipping skill org-skill-web-research (Not in whitelist) +KERNEL: Skipping skill org-skill-workspace-manager (Not in whitelist) diff --git a/package-lock.json b/package-lock.json new file mode 100644 index 0000000..aea4aa3 --- /dev/null +++ b/package-lock.json @@ -0,0 +1,6 @@ +{ + "name": "memex", + "lockfileVersion": 3, + "requires": true, + "packages": {} +} diff --git a/package.json b/package.json new file mode 100644 index 0000000..0967ef4 --- /dev/null +++ b/package.json @@ -0,0 +1 @@ +{} diff --git a/prove-shell.el b/prove-shell.el new file mode 100644 index 0000000..d0d166b --- /dev/null +++ b/prove-shell.el @@ -0,0 +1,38 @@ +(setq load-path (cons "./projects/org-agent/src" load-path)) +(require 'org-agent) + +(defun prove-shell-works () + (message "SIMulation: Connecting to agent...") + (setq org-agent-executable-path nil) + (org-agent-connect) + + (let ((retries 0)) + (while (and (not org-agent--network-process) (< retries 10)) + (sleep-for 0.5) + (setq retries (1+ retries)))) + + (message "SIMulation: Connection established. Sending message 'run date'...") + + (with-current-buffer (get-buffer-create "*org-agent-chat*") + (erase-buffer) + (insert "* Welcome\n\nPlease run the 'date' command for me.\n") + (org-agent-chat-send)) + + (message "SIMulation: Message sent. Waiting for response (timeout 60s)...") + + (let ((retries 0) + (found nil)) + (while (and (not found) (< retries 120)) + (sleep-for 0.5) + (accept-process-output org-agent--network-process 0.1) + (with-current-buffer "*org-agent-chat*" + (when (and (not (string-match-p "Thinking..." (buffer-string))) + (> (buffer-size) 50)) + (setq found t) + (message "SIMulation: RESPONSE RECEIVED!\n\n--- BUFFER START ---\n%s\n--- BUFFER END ---" (buffer-string)))) + (setq retries (1+ retries))) + + (if (not found) + (error "SIMulation: Timeout waiting for agent response. Check daemon logs.")))) + +(prove-shell-works) diff --git a/start-agent.sh b/start-agent.sh new file mode 100755 index 0000000..5132659 --- /dev/null +++ b/start-agent.sh @@ -0,0 +1,4 @@ +#!/bin/bash +export SKILLS_WHITELIST="org-skill-shell-actuator,org-skill-chat,org-skill-emacs-bridge,org-skill-object-store-persistence" +cd /home/user/memex/projects/org-agent +./org-agent-server > /home/user/memex/org-agent-whitelist.log 2>&1 diff --git a/test-shell.lisp b/test-shell.lisp new file mode 100644 index 0000000..1da64e2 --- /dev/null +++ b/test-shell.lisp @@ -0,0 +1,29 @@ +(require :usocket) + +(defun test-shell-execution () + (let* ((socket (usocket:socket-connect "127.0.0.1" 9105)) + (stream (usocket:socket-stream socket)) + ;; We send a chat message asking to run date + (msg "(:type :event :payload (:sensor :chat-message :text \"run date\"))") + (len (length msg)) + (framed (format nil "~6,'0x~a" len msg))) + (format t "Sending request: ~a~%" msg) + (write-string framed stream) + (finish-output stream) + (format t "Waiting for Shell Actuator response...~%") + (handler-case + (loop + (let* ((len-prefix (make-string 6))) + (read-sequence len-prefix stream) + (let* ((msg-len (parse-integer len-prefix :radix 16)) + (payload (make-string msg-len))) + (read-sequence payload stream) + (format t "AGENT REPLY: ~a~%" payload) + ;; We look for the Shell Command Result headline in the response + (when (search "Shell Command Result" payload) + (format t "SUCCESS: Shell output received!~%") + (return))))) + (error (c) (format t "ERROR: ~a~%" c))) + (usocket:socket-close socket))) + +(test-shell-execution)