wip: paren balance fixes in policy blocks + engineering standards scaffolding

- Fix unbalanced parens in org-skill-policy.org (8 blocks)
- Add org-skill-engineering-standards.lisp scaffolding
- Add org-skill-self-fix.lisp helper
- Add test runners and tool-permissions tests

Note: Some fixes may be over-corrections. Full structural audit needed.

library/gen/org-skill-tool-permissions.lisp

@@ -22,15 +22,11 @@
 
 (def-cognitive-tool :get-embedding
   "Generates vector embeddings via Ollama or llama.cpp API."
-  ((text :type :string :description "Text to embed."))
+  ((:text :type :string :description "Text to embed."))
   :body (lambda (args)
           (let* ((text (getf args :text))
                  (provider (or (uiop:getenv "EMBEDDING_PROVIDER") "ollama"))
-                 (model (or (uiop:getenv "EMBEDDING_MODEL") 
-                            (case (intern (string-upcase provider) :keyword)
-                              (:NOMIC-EMBED-TEXT "nomic-embed-text")
-                              (:LLAMA-CPP "llama.cpp")
-                              (t "nomic-embed-text"))))
+                 (model (or (uiop:getenv "EMBEDDING_MODEL") "nomic-embed-text"))
                  (embedding nil))
             (cond
               ((string= provider "ollama")
@@ -88,4 +84,4 @@
   :trigger (lambda (c) (declare (ignore c)) nil)
   :deterministic (lambda (a c)
     (let ((tool (getf (getf a :payload) :tool)))
-      (when tool (check-tool-permission-gate tool c)))))
+      (when tool (check-tool-permission-gate tool c)))))