PSF: Standardize core gates and refine skill loading mechanism

- Improved decide-gate to normalize candidates (wrap strings in RESPONSE)
- Refined load-skill-from-org to skip tangled blocks and Org properties
- Updated system definition and test suites for v1.0
This commit is contained in:
2026-04-12 13:38:29 -04:00
parent 397fcc5e8c
commit 04df131f63
13 changed files with 234 additions and 62 deletions

View File

@@ -90,7 +90,7 @@ We register tools for kernel introspection and state management.
#+begin_src lisp
(org-agent:def-cognitive-tool :kernel-status "Returns the current operational status of the Org-Agent kernel, including loaded skills and telemetry."
:parameters nil
nil
:body (lambda (args)
(declare (ignore args))
(format nil "KERNEL STATUS:
@@ -104,7 +104,7 @@ We register tools for kernel introspection and state management.
org-agent:*provider-cascade*)))
(org-agent:def-cognitive-tool :list-skills "Lists all currently loaded skills and their metadata."
:parameters nil
nil
:body (lambda (args)
(declare (ignore args))
(let ((output "LOADED SKILLS:

View File

@@ -52,17 +52,6 @@ Verify the system's stability and error-handling capabilities under stress.
(format nil "SUCCESS - Chaos stress test initiated.")))
#+end_src
* Registration
#+begin_src lisp
(defskill :skill-chaos
:priority 10 ; Lower priority, used for background testing
:trigger (lambda (context) (eq (getf (getf context :payload) :sensor) :chaos-trigger))
:neuro (lambda (context)
(let ((p (getf context :payload)))
(format nil "A chaos trigger was received (~a). Should I run a stress test?" (getf p :mode))))
:symbolic #'chaos-stress-test)
#+end_src
* Phase B: Blueprint (PROTOCOL)
:PROPERTIES:
@@ -131,3 +120,14 @@ Verify the system's stability and error-handling capabilities under stress.
(defun chaos-force-skip-event ())
#+end_src
* Registration
#+begin_src lisp
(defskill :skill-chaos
:priority 10 ; Lower priority, used for background testing
:trigger (lambda (context) (eq (getf (getf context :payload) :sensor) :chaos-trigger))
:neuro (lambda (context)
(let ((p (getf context :payload)))
(format nil "A chaos trigger was received (~a). Should I run a stress test?" (getf p :mode))))
:symbolic #'chaos-stress-test)
#+end_src

View File

@@ -44,7 +44,7 @@ The Delegation Manager will utilize a message-passing architecture. Tasks are pa
#+BEGIN_SRC lisp
;; Sends a task to a target. Returns a promise (future) that will eventually resolve
;; to the task result. The :delegation-id is internally managed to track the delegation lifecycle.
(defun delegate-task (task :priority :context)
(defun delegate-task (task priority context)
:returns (promise task-result))
#+END_SRC
@@ -54,7 +54,7 @@ The Delegation Manager will utilize a message-passing architecture. Tasks are pa
;; Determines the target agent/skill for a given task.
;; It receives the task details and any relevant context. Returns the ID of the
;; targeted agent/skill. Can return `:error` if no suitable delegation is found.
(defun resolve-skill (task :context)
(defun resolve-skill (task context)
:returns (skill-id or :error))
#+END_SRC
@@ -62,7 +62,7 @@ The Delegation Manager will utilize a message-passing architecture. Tasks are pa
#+BEGIN_SRC lisp
;; Reports a delegation failure. This allows for fallback strategies.
(defun report-delegation-failure (delegation-id :error-message)
(defun report-delegation-failure (delegation-id error-message)
:returns nil)
#+END_SRC
@@ -70,7 +70,7 @@ The Delegation Manager will utilize a message-passing architecture. Tasks are pa
#+BEGIN_SRC lisp
;; Informs the Delegation Manager that a task has been completed successfully.
(defun report-task-completion (delegation-id :result)
(defun report-task-completion (delegation-id result)
:returns nil)
#+END_SRC

View File

@@ -127,7 +127,7 @@ We allow other skills to register safe symbols for the harness.
** Cognitive Tools
#+begin_src lisp
(org-agent:def-cognitive-tool :security-telemetry "Returns security-related telemetry, including blocked actions and harness status."
:parameters nil
nil
:body (lambda (args)
(declare (ignore args))
(format nil "SAFETY HARNESS STATUS: