fix(v0.2.0): finalize structural integrity and clean boot

- Fixed memory.org source blocks to ensure persistence functions are tangled.
- Improved extract-tangle-target to handle complex Elisp expressions.
- Corrected opencortex.sh initialization paths to prevent setup loops.
- Reordered variable definitions in policy and standards skills to eliminate forward-reference warnings.

harness/skills.org

@@ -1,3 +1,4 @@
+#+PROPERTY: header-args:lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
 #+TITLE: The Skill Engine (skills.lisp)
 #+AUTHOR: Amr
 #+FILETAGS: :harness:skills:
@@ -61,7 +62,7 @@ flowchart LR
 
 ** Global Skill Registry
 
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (in-package :opencortex)
 
 (defun COSINE-SIMILARITY (v1 v2)
@@ -137,7 +138,7 @@ flowchart LR
 #+end_src
 
 ** Skill File Analysis (parse-skill-metadata)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (defun parse-skill-metadata (filepath)
   "Extracts ID and DEPENDS_ON tags from org file."
   (let ((dependencies nil)
@@ -163,7 +164,7 @@ flowchart LR
 #+end_src
 
 ** Dependency Resolution (topological-sort-skills)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (defun topological-sort-skills (skills-dir)
   "Returns a list of skill filepaths sorted by dependency (dependencies first)."
   (let ((files (uiop:directory-files skills-dir "org-skill-*.org"))
@@ -207,7 +208,7 @@ flowchart LR
 #+end_src
 
 ** Jailed Loading (load-skill-from-org)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (defun validate-lisp-syntax (code-string)
   "Checks if a string contains valid, readable Common Lisp forms.
 Delegates to the Lisp Validator skill when available; falls back to a basic
@@ -227,15 +228,26 @@ reader check during early boot before the validator skill is loaded."
         (values nil (or (getf result :reason) "Lisp Validator rejected code.")))))
 
 (defun extract-tangle-target (line)
-  "Extracts the value of the :tangle header from an org src block line."
+  "Extracts the value of the :tangle header from an org src block line.
+Handles both simple strings and parenthesized elisp expressions."
   (let ((pos (search ":tangle" line)))
     (when pos
-      (let* ((rest (subseq line (+ pos 7)))
-             (trimmed (string-trim '(#\Space #\Tab) rest))
-             (end (position #\Space trimmed)))
-        (if end
-            (subseq trimmed 0 end)
-            trimmed)))))
+      (let ((rest (string-trim '(#\Space #\Tab) (subseq line (+ pos 7)))))
+        (if (char= (char rest 0) #\()
+            ;; It's an elisp expression, find the matching closing paren
+            (let ((balance 0)
+                  (end nil))
+              (dotimes (i (length rest))
+                (let ((ch (char rest i)))
+                  (cond ((char= ch #\() (incf balance))
+                        ((char= ch #\)) (decf balance)))
+                  (when (and (> i 0) (= balance 0))
+                    (setf end (1+ i))
+                    (return-from extract-tangle-target (subseq rest 0 end)))))
+              rest)
+            ;; It's a simple string, stop at next space
+            (let ((end (position #\Space rest)))
+              (if end (subseq rest 0 end) rest)))))))
 
 (defun load-skill-from-org (filepath)
   "Parses and evaluates Lisp blocks with :tangle directives from an Org file.
@@ -259,9 +271,8 @@ Only loads blocks that specify a .lisp tangle target, ignoring tests and example
                 ((uiop:string-prefix-p "#+begin_src lisp" clean-line)
                  (setf in-lisp-block t)
                  (let ((tangle-target (extract-tangle-target clean-line)))
-                   (if (and tangle-target 
-                            (not (search "tests/" tangle-target))
-                            (not (search ":tangle no" clean-line)))
+                   (if (or (and tangle-target (not (search "/tests" tangle-target)) (not (search ":tangle no" clean-line)))
+                           (and (not tangle-target) (not (search ":tangle no" clean-line))))
                        (setf collect-this-block t)
                        (setf collect-this-block nil))))
                 
@@ -359,7 +370,7 @@ Only loads blocks that specify a .lisp tangle target, ignoring tests and example
 #+end_src
 
 ** Toolbelt Prompt Generation (generate-tool-belt-prompt)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (defun generate-tool-belt-prompt ()
   "Aggregates all registered cognitive tools into a descriptive prompt."
   (let ((output (format nil "AVAILABLE TOOLS:
@@ -386,7 +397,7 @@ EXAMPLES:
 
 ** The Default Tool Belt
 *** The Eval Tool (Internal Inspection)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (def-cognitive-tool :eval "Evaluates raw Common Lisp code in the harness image. Use this for complex calculations or internal state inspection."
   ((:code :type :string :description "The Lisp code to evaluate"))
   :guard (lambda (args context)
@@ -404,7 +415,7 @@ EXAMPLES:
 #+end_src
 
 *** The Grep Tool (File Discovery)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (def-cognitive-tool :grep-search "Searches for a pattern in the project files."
   ((:pattern :type :string :description "The regex pattern to search for")
    (:dir :type :string :description "Directory to search in (default is project root)"))
@@ -416,7 +427,7 @@ EXAMPLES:
 #+end_src
 
 *** The Shell Tool (Machine Actuation)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (def-cognitive-tool :shell "Executes a shell command on the local machine. Use this for file operations, system checks, or running tests."
   ((:cmd :type :string :description "The full bash command to execute"))
   :guard (lambda (args context)
@@ -431,7 +442,7 @@ EXAMPLES:
 #+end_src
 
 *** The Reload-Skill Tool (Hot Reload)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (def-cognitive-tool :reload-skill "Reloads a skill from its Org-mode source file, recompiling into the live image without restarting the daemon."
   ((:skill :type :string :description "The skill name (e.g., \"org-skill-policy\") or full path to the .org file"))
   :guard (lambda (args context)
@@ -467,7 +478,7 @@ EXAMPLES:
 #+end_src
 
 *** The File Read Tool (V 0.2.0 File I/O)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (def-cognitive-tool :read-file "Reads the contents of a file as a string."
   ((:file :type :string :description "The path to the file to read"))
   :guard (lambda (args context)
@@ -486,7 +497,7 @@ EXAMPLES:
 #+end_src
 
 *** The File Write Tool (V 0.2.0 File I/O)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (def-cognitive-tool :write-file "Writes content to a file, creating it if it doesn't exist."
   ((:file :type :string :description "The path to the file to write")
    (:content :type :string :description "The content to write")
@@ -519,7 +530,7 @@ EXAMPLES:
 #+end_src
 
 *** The String Replace Tool (V 0.2.0 File I/O)
-#+begin_src lisp :tangle (expand-file-name "skills.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/harness"))
+#+begin_src lisp
 (def-cognitive-tool :replace-string "Replaces occurrences of old-string with new-string in a file."
   ((:file :type :string :description "The path to the file")
    (:old :type :string :description "The substring to find and replace")