feat: memory scope segmentation — wire context scope into perceive gate

Adds *scope-resolver* hook in core-loop-perceive that the context-manager
skill sets at load time. The perceive gate now passes the active scope
to ingest-ast, tagging all ingested objects with the current context scope.

Implementation:
- core-loop-perceive: *scope-resolver* defvar (default nil → :memex),
  two ingest-ast calls now pass (if *scope-resolver* (funcall it) :memex)
- core-defpackage: export *scope-resolver* and context-query
- system-context-manager: auto-init sets *scope-resolver* to #'current-scope

This completes the Memory Scope Segmentation feature: all three scopes
(:memex, :session, :project) are supported, scope-aware retrieval
(context-query :scope / context-scoped-query) was already implemented,
and ingested objects now correctly carry the active scope.

org/core-defpackage.org

@@ -76,11 +76,12 @@ The package definition. All public symbols are exported here.
    #:context-get-recent-completed-tasks
    #:context-list-all-skills
    #:context-get-skill-source
-   #:context-get-system-logs
-   #:context-resolve-path
-   #:context-get-skill-telemetry
-   #:telemetry-track
-   #:context-assemble-global-awareness
+    #:context-get-system-logs
+    #:context-resolve-path
+    #:context-get-skill-telemetry
+    #:telemetry-track
+    #:context-assemble-global-awareness
+    #:context-query
    #:process-signal
    #:loop-process
    #:perceive-gate
@@ -100,12 +101,13 @@ The package definition. All public symbols are exported here.
    #:dispatch-action
    #:register-actuator
    #:load-skill-from-org
-   #:skill-initialize-all
-   #:load-skill-with-timeout
-   #:topological-sort-skills
-   #:validate-lisp-syntax
-   #:defskill
-   #:*skill-registry*
+    #:skill-initialize-all
+    #:load-skill-with-timeout
+    #:topological-sort-skills
+    #:validate-lisp-syntax
+    #:defskill
+    #:*skill-registry*
+    #:*scope-resolver*
    #:skill
    #:skill-name
    #:skill-priority

org/core-loop-perceive.org

@@ -43,6 +43,19 @@ A global interrupt flag that can be set by any signal. When set, the metabolic l
 (defvar *loop-interrupt* nil)
 #+end_src
 
+** Scope Resolver
+
+A hook for the context-manager skill to register its ~current-scope~
+function. When set, the perceive gate passes the current context scope
+to ~ingest-ast~ so ingested objects are tagged and queryable by scope.
+Defaults to ~nil~ meaning all objects are ingested as ~:memex~.
+
+;; REPL-VERIFIED: 2026-05-03T14:00:00
+#+begin_src lisp
+(defvar *scope-resolver* nil
+  "If set, function returning current scope keyword. Used by perceive gate.")
+#+end_src
+
 ** Sensor Configuration
 
 ~*loop-async-sensors*~ lists the sensor types that should be processed in their own threads. Currently, ~:chat-message~, ~:delegation~, and ~:user-command~ are async because they don't block the main reasoning loop — the agent can process a Telegram message while waiting for the user's next input.
@@ -186,13 +199,13 @@ The main perceive pipeline stage.
                (let ((ast (getf payload :ast)))
                  (when ast
                    (snapshot-memory)
-                   (ingest-ast ast))))
+                   (ingest-ast ast :scope (if *scope-resolver* (funcall *scope-resolver*) :memex)))))
               (:point-update
                (let ((element (getf payload :element)))
                  (when element
                    (snapshot-memory)
                    (setf *loop-focus-id* (getf element :id))
-                   (ingest-ast element))))
+                   (ingest-ast element :scope (if *scope-resolver* (funcall *scope-resolver*) :memex)))))
               (:interrupt
                (setf *loop-interrupt* t))
               ;; HITL: re-injected approved action from dispatcher-approvals-process

org/system-context-manager.org

@@ -222,4 +222,14 @@ until stack is empty or :memex context is reached."
                      (when (> (context-stack-depth) 0)
                        nil))
                    nil))
+#+end_src
+
+** Auto-Init: Wire Scope Resolver
+
+Registers ~current-scope~ into the core ~*scope-resolver*~ hook so the
+perceive gate tags ingested objects with the active context scope.
+
+#+begin_src lisp
+(when (boundp '*scope-resolver*)
+  (setf *scope-resolver* #'current-scope))
 #+end_src