VM aser-slot → sx-page-full: single-call page render, 0.55s warm

Compiler fixes:
- Upvalue re-lookup returns own position (uv-index), not parent slot
- Spec: cek-call uses (make-env) not (dict) — OCaml Dict≠Env
- Bootstrap post-processes transpiler Dict→Env for cek_call

VM runtime fixes:
- compile_adapter evaluates constant defines (SPECIAL_FORM_NAMES etc.)
  via execute_module instead of wrapping as NativeFn closures
- Native primitives: map-indexed, some, every?
- Nil-safe HO forms: map/filter/for-each/some/every? accept nil as empty
- expand-components? set in kernel env (not just VM globals)
- unwrap_env diagnostic: reports actual type received

sx-page-full command:
- Single OCaml call: aser-slot body + render-to-html shell
- Eliminates two pipe round-trips (was: aser-slot→Python→shell render)
- Shell statics (component_defs, CSS, pages_sx) cached in Python,
  injected into kernel once, referenced by symbol in per-request command
- Large blobs use placeholder tokens — Python splices post-render,
  pipe transfers ~51KB instead of 2MB

Performance (warm):
- Server total: 0.55s (was ~2s)
- aser-slot VM: 0.3s, shell render: 0.01s, pipe: 0.06s
- kwargs computation: 0.000s (cached)

SX_STANDALONE mode for sx_docs dev (skips fragment fetches).

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

spec/compiler.sx

@@ -76,7 +76,7 @@
                 (uv-found (some (fn (u) (= (get u "name") name)) upvals)))
             (if uv-found
               (let ((uv (first (filter (fn (u) (= (get u "name") name)) upvals))))
-                {:type "upvalue" :index (get uv "index")})
+                {:type "upvalue" :index (get uv "uv-index")})
               ;; Look in parent
               (let ((parent (get scope "parent")))
                 (if (nil? parent)
@@ -91,7 +91,8 @@
                           (append! (get scope "upvalues")
                             {:name name
                              :is-local (= (get parent-result "type") "local")
-                             :index (get parent-result "index")})
+                             :index (get parent-result "index")
+                             :uv-index uv-idx})
                           {:type "upvalue" :index uv-idx})
                         ;; Let scope — pass through (same frame)
                         parent-result))))))))))))

spec/evaluator.sx

@@ -1132,6 +1132,9 @@
                          (= name "false")      false
                          (= name "nil")        nil
                          :else                 (error (str "Undefined symbol: " name)))))
+              ;; Warn when a ~component symbol resolves to nil (likely missing)
+              (when (and (nil? val) (starts-with? name "~"))
+                (debug-log "Component not found:" name))
               (make-cek-value val env kont)))
 
         ;; --- Keyword → string ---
@@ -1551,7 +1554,7 @@
       (cond
         (nil? f) nil
         (or (lambda? f) (callable? f))
-          (cek-run (continue-with-call f a (dict) a (list)))
+          (cek-run (continue-with-call f a (make-env) a (list)))
         :else nil))))
 
 ;; reactive-shift-deref: the heart of deref-as-shift
@@ -2257,9 +2260,7 @@
             (env-bind! local "children" children))
           (make-cek-state (component-body f) local kont))
 
-      :else (error (str "Not callable: " (inspect f)
-                        (when raw-args
-                          (str " in (" (inspect (first raw-args)) " ...)")))))))
+      :else (error (str "Not callable: " (inspect f))))))