fix: add find-triggered-skill alias for skill-triggered-find

Another naming drift: the think function in core-loop-reason calls
find-triggered-skill but the actual function was skill-triggered-find
in core-skills. This crashed the daemon on every user-input signal.

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)

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