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 (mandatory-skills (if mandatory-env
(mapcar (lambda (s) (string-trim '(#\Space) s)) (mapcar (lambda (s) (string-trim '(#\Space) s))
(uiop:split-string mandatory-env :separator '(#\,))) (uiop:split-string mandatory-env :separator '(#\,)))
'("org-skill-policy" "org-skill-bouncer")))) '("org-skill-policy" "org-skill-bouncer")))
(dolist (req mandatory-skills) (dolist (req mandatory-skills)
(unless (member req sorted-files :key #'pathname-name :test #'string-equal) (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)))) (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)) (let ((ready 0) (failed 0))
(maphash (lambda (k v) (maphash (lambda (k v)
(declare (ignore k)) (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*) *skill-catalog*)
(harness-log " LOADER: Boot Complete. [Ready: ~a] [Failed: ~a]" ready failed) (harness-log " LOADER: Boot Complete. [Ready: ~a] [Failed: ~a]" ready failed)
(harness-log "==================================================") (harness-log "==================================================")
@@ -388,7 +388,7 @@ EXAMPLES:
(:target :tool :action :call :tool \"shell\" :args (:cmd \"ls -la\")) (:target :tool :action :call :tool \"shell\" :args (:cmd \"ls -la\"))
--- ---
"))) " )))
(maphash (lambda (name tool) (maphash (lambda (name tool)
(setf output (concatenate 'string output (setf output (concatenate 'string output
(format nil "- ~a: ~a~% Parameters: ~s~%~%" (format nil "- ~a: ~a~% Parameters: ~s~%~%"

6
src/skills.lisp
View File

@@ -202,7 +202,7 @@
(mandatory-skills (if mandatory-env (mandatory-skills (if mandatory-env
(mapcar (lambda (s) (string-trim '(#\Space) s)) (mapcar (lambda (s) (string-trim '(#\Space) s))
(uiop:split-string mandatory-env :separator '(#\,))) (uiop:split-string mandatory-env :separator '(#\,)))
'("org-skill-policy" "org-skill-bouncer")))) '("org-skill-policy" "org-skill-bouncer")))
(dolist (req mandatory-skills) (dolist (req mandatory-skills)
(unless (member req sorted-files :key #'pathname-name :test #'string-equal) (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)))) (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)) (let ((ready 0) (failed 0))
(maphash (lambda (k v) (maphash (lambda (k v)
(declare (ignore k)) (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*) *skill-catalog*)
(harness-log " LOADER: Boot Complete. [Ready: ~a] [Failed: ~a]" ready failed) (harness-log " LOADER: Boot Complete. [Ready: ~a] [Failed: ~a]" ready failed)
(harness-log "==================================================") (harness-log "==================================================")
@@ -241,7 +241,7 @@ EXAMPLES:
(:target :tool :action :call :tool \"shell\" :args (:cmd \"ls -la\")) (:target :tool :action :call :tool \"shell\" :args (:cmd \"ls -la\"))
--- ---
"))) " )))
(maphash (lambda (name tool) (maphash (lambda (name tool)
(setf output (concatenate 'string output (setf output (concatenate 'string output
(format nil "- ~a: ~a~% Parameters: ~s~%~%" (format nil "- ~a: ~a~% Parameters: ~s~%~%"