fix(kernel): Definitive quote stripping and env detection

src/context.lisp

@@ -91,8 +91,18 @@
     output))
 
 (defun context-resolve-path (path-string)
-  "Expands all environment variables ($VAR) within a path string."
-  (if (and (stringp path-string) (search "$" path-string))
+  "Expands environment variables and strips literal quotes from a path string."
+  (let ((path (if (stringp path-string) 
+                  (string-trim '(#\" #\' #\Space) path-string)
+                  path-string)))
+    (if (and (stringp path) (search "$" path))
+        (let ((result path))
+          (ppcre:do-register-groups (var-name) ("\\$([A-Za-z0-9_]+)" path)
+            (let ((var-val (uiop:getenv var-name)))
+              (when var-val
+                (setf result (ppcre:regex-replace (format nil "\\$~a" var-name) result var-val)))))
+          result)
+        path)))
       (let ((result path-string))
         (ppcre:do-register-groups (var-name) ("\\$([A-Za-z0-9_]+)" path-string)
           (let ((var-val (uiop:getenv var-name)))

src/package.lisp

@@ -4,9 +4,6 @@
    ;; --- communication protocol ---
    #:frame-message
    #:read-framed-message
-   #:*VAULT-MEMORY*
-   #:COSINE-SIMILARITY
-   #:VAULT-MASK-STRING
    #:parse-message
    #:make-hello-message
    #:validate-communication-protocol-schema

src/skills.lisp

@@ -151,7 +151,7 @@
                 (harness-log "HARNESS: Jailing skill '~a' in package ~a" skill-base-name pkg-name)
                 (unless (find-package pkg-name)
                   (let ((new-pkg (make-package pkg-name :use '(:cl))))
-                    (do-external-symbols (sym (find-package :opencortex)) (import sym new-pkg))))
+                    (do-external-symbols (sym (find-package :opencortex)) (shadowing-import sym new-pkg))))
                 (let ((*read-eval* nil) (*package* (find-package pkg-name)))
                   (eval (read-from-string (format nil "(progn ~a)" lisp-code))))
                 (setf (skill-entry-status entry) :ready)