diff --git a/lisp/core-skills.lisp b/lisp/core-skills.lisp index 526cb99..49db7f1 100644 --- a/lisp/core-skills.lisp +++ b/lisp/core-skills.lisp @@ -23,6 +23,10 @@ (defstruct skill-entry filename (status :discovered) error-log (load-time 0)) +;; Alias: find-triggered-skill → skill-triggered-find +(defun find-triggered-skill (context) + (skill-triggered-find context)) + (defun skill-triggered-find (context) "Returns the highest priority skill whose trigger matches context." (let ((triggered nil)) @@ -31,7 +35,7 @@ (when (and (skill-probabilistic-prompt skill) (ignore-errors (funcall (skill-trigger-fn skill) context))) (push skill triggered))) - *skill-registry*) + *skill-registry*) (first (sort triggered #'> :key #'skill-priority)))) (defmacro defskill (name &key priority dependencies trigger probabilistic deterministic system-prompt-augment) diff --git a/org/core-skills.org b/org/core-skills.org index c749c8a..5ff9f0e 100644 --- a/org/core-skills.org +++ b/org/core-skills.org @@ -90,6 +90,10 @@ Iterates the registry and returns the highest-priority skill whose trigger funct This is how the system determines which skill "owns" the current user input. For example, if the REPL skill's trigger matches the input, the REPL skill provides the prompt template that shapes how the LLM responds. #+begin_src lisp +;; Alias: find-triggered-skill → skill-triggered-find +(defun find-triggered-skill (context) + (skill-triggered-find context)) + (defun skill-triggered-find (context) "Returns the highest priority skill whose trigger matches context." (let ((triggered nil)) @@ -98,7 +102,7 @@ This is how the system determines which skill "owns" the current user input. For (when (and (skill-probabilistic-prompt skill) (ignore-errors (funcall (skill-trigger-fn skill) context))) (push skill triggered))) - *skill-registry*) + *skill-registry*) (first (sort triggered #'> :key #'skill-priority)))) #+end_src