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

debug(skills): add package diagnostic logs

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 20:02:18 -04:00
parent 9faa861014
commit 55599d3cba
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harness/skills.org
View File

@@ -185,6 +185,7 @@ The ~opencortex~ Skill Engine enables **Late-Binding Intelligence**, allowing th
(unless (find-package pkg-name) (unless (find-package pkg-name)
(let ((new-pkg (make-package pkg-name :use '(:cl)))) (use-package :opencortex new-pkg))) (let ((new-pkg (make-package pkg-name :use '(:cl)))) (use-package :opencortex new-pkg)))
(let ((*read-eval* nil) (*package* (find-package pkg-name))) (let ((*read-eval* nil) (*package* (find-package pkg-name)))
(harness-log "LOADER: Evaluating code for '~a' in package ~a" skill-base-name (package-name *package*))
(eval (read-from-string (format nil "(progn ~a)" lisp-code)))) (eval (read-from-string (format nil "(progn ~a)" lisp-code))))
;; Export symbols back to :OPENCORTEX for discoverability and testing ;; Export symbols back to :OPENCORTEX for discoverability and testing
@@ -193,11 +194,14 @@ The ~opencortex~ Skill Engine enables **Late-Binding Intelligence**, allowing th
(short-name (if (uiop:string-prefix-p "ORG-SKILL-" raw-name) (short-name (if (uiop:string-prefix-p "ORG-SKILL-" raw-name)
(subseq raw-name 10) (subseq raw-name 10)
raw-name))) raw-name)))
(harness-log "LOADER: Scanning package ~a for symbols to export..." (package-name (find-package pkg-name)))
(do-symbols (sym (find-package pkg-name)) (do-symbols (sym (find-package pkg-name))
(when (eq (symbol-package sym) (find-package pkg-name)) (when (eq (symbol-package sym) (find-package pkg-name))
(let ((sn (symbol-name sym))) (let ((sn (symbol-name sym)))
(when (or (uiop:string-prefix-p raw-name sn) (when (or (uiop:string-prefix-p raw-name sn)
(uiop:string-prefix-p short-name sn)) (uiop:string-prefix-p short-name sn)
(string-equal sn "DOCTOR-MAIN")
(string-equal sn "RUN-SETUP-WIZARD"))
(harness-log "LOADER: Exporting ~a to :OPENCORTEX" sn) (harness-log "LOADER: Exporting ~a to :OPENCORTEX" sn)
;; Resolve potential name conflicts by uninterning first ;; Resolve potential name conflicts by uninterning first
(let ((existing (find-symbol sn target-pkg))) (let ((existing (find-symbol sn target-pkg)))