diff --git a/literate/skills.org b/literate/skills.org index 849751a..9c93f83 100644 --- a/literate/skills.org +++ b/literate/skills.org @@ -330,7 +330,7 @@ The `initialize-all-skills` function is the unified orchestrator for the system (mandatory-skills (if mandatory-env (mapcar (lambda (s) (string-trim '(#\Space) s)) (uiop:split-string mandatory-env :separator '(#\,))) - '("org-skill-policy" "org-skill-bouncer")))) + '("org-skill-policy" "org-skill-bouncer"))) (dolist (req mandatory-skills) (unless (member req sorted-files :key #'pathname-name :test #'string-equal) (error "BOOT FAILURE: Mandatory skill '~a' not found in skills directory: ~a" req (uiop:native-namestring skills-dir)))) @@ -352,7 +352,7 @@ The `initialize-all-skills` function is the unified orchestrator for the system (let ((ready 0) (failed 0)) (maphash (lambda (k v) (declare (ignore k)) - (if (eq (skill-entry-status v) :ready) (incf ready) (incf failed))) + (if (eq (skill-entry-status v) :ready) (incf ready) (incf failed)))) *skill-catalog*) (harness-log " LOADER: Boot Complete. [Ready: ~a] [Failed: ~a]" ready failed) (harness-log "==================================================") @@ -388,7 +388,7 @@ EXAMPLES: (:target :tool :action :call :tool \"shell\" :args (:cmd \"ls -la\")) --- -"))) +" ))) (maphash (lambda (name tool) (setf output (concatenate 'string output (format nil "- ~a: ~a~% Parameters: ~s~%~%" diff --git a/src/skills.lisp b/src/skills.lisp index e3e9946..3903f68 100644 --- a/src/skills.lisp +++ b/src/skills.lisp @@ -202,7 +202,7 @@ (mandatory-skills (if mandatory-env (mapcar (lambda (s) (string-trim '(#\Space) s)) (uiop:split-string mandatory-env :separator '(#\,))) - '("org-skill-policy" "org-skill-bouncer")))) + '("org-skill-policy" "org-skill-bouncer"))) (dolist (req mandatory-skills) (unless (member req sorted-files :key #'pathname-name :test #'string-equal) (error "BOOT FAILURE: Mandatory skill '~a' not found in skills directory: ~a" req (uiop:native-namestring skills-dir)))) @@ -224,7 +224,7 @@ (let ((ready 0) (failed 0)) (maphash (lambda (k v) (declare (ignore k)) - (if (eq (skill-entry-status v) :ready) (incf ready) (incf failed))) + (if (eq (skill-entry-status v) :ready) (incf ready) (incf failed)))) *skill-catalog*) (harness-log " LOADER: Boot Complete. [Ready: ~a] [Failed: ~a]" ready failed) (harness-log "==================================================") @@ -241,7 +241,7 @@ EXAMPLES: (:target :tool :action :call :tool \"shell\" :args (:cmd \"ls -la\")) --- -"))) +" ))) (maphash (lambda (name tool) (setf output (concatenate 'string output (format nil "- ~a: ~a~% Parameters: ~s~%~%"