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:
@@ -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:
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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:
|
||||
|
||||
Reference in New Issue
Block a user