amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(boot): Final surgical repair of parenthesis nesting and removal of duplicated junk
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 22s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-17 18:06:50 -04:00
parent 06cdb4f269
commit c225e167b6
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
literate/skills.org
View File

@@ -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~%~%"

6
src/skills.lisp
View File

@@ -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~%~%"