feat: Context Manager skill + org-object→memory-object fix

- system-context-manager (new skill): stack-based project focusing with
  push-context/pop-context, path resolution relative to base path, and
  scope-aware memory queries via context-scoped-query.
- core-memory: add :scope slot to memory-object struct (default :memex).
- core-memory: ingest-ast accepts &key (scope :memex), propagates to children.
- core-context: context-query accepts :scope parameter for filtering.
- DEFECT FIX: renamed org-object-* accessors to memory-object-*
  across core-context, security-dispatcher, tests, and defpackage exports.
  The struct was renamed but accessor references were never updated —
  the code referenced nonexistent functions.

lisp/core-memory.lisp

@@ -23,7 +23,7 @@
   (concatenate 'string "id-" (string-downcase (format nil "~a" (uuid:make-v4-uuid)))))
 
 (defstruct memory-object
-  id type attributes content vector parent-id children version last-sync hash)
+  id type attributes content vector parent-id children version last-sync hash scope)
 
 (defmethod make-load-form ((obj memory-object) &optional env)
   (make-load-form-saving-slots obj :environment env))
@@ -39,7 +39,8 @@
                   :children (copy-list (memory-object-children obj))
                   :version (memory-object-version obj)
                   :last-sync (memory-object-last-sync obj)
-                  :hash (memory-object-hash obj)))
+                  :hash (memory-object-hash obj)
+                  :scope (memory-object-scope obj)))
 
 (defun memory-merkle-hash (id type attributes content child-hashes)
   (let* ((alist (loop for (k v) on attributes by #'cddr collect (cons k v)))
@@ -52,7 +53,7 @@
     (ironclad:update-digest digester (ironclad:ascii-string-to-byte-array data-string))
     (ironclad:byte-array-to-hex-string (ironclad:produce-digest digester))))
 
-(defun ingest-ast (ast &optional parent-id)
+(defun ingest-ast (ast &key parent-id (scope :memex))
   (let* ((type (getf ast :type))
          (props (getf ast :properties))
          (id (or (getf props :ID) (format nil "temp-~a" (get-universal-time))))
@@ -62,7 +63,7 @@
          (child-ids nil) (child-hashes nil))
     (dolist (child contents)
       (when (listp child)
-        (let ((child-id (ingest-ast child id)))
+        (let ((child-id (ingest-ast child :parent-id id :scope scope)))
           (push child-id child-ids)
           (let ((child-obj (gethash child-id *memory-store*)))
             (when child-obj (push (memory-object-hash child-obj) child-hashes))))))
@@ -75,7 +76,7 @@
                      :id id :type type :attributes props :content raw-content
                      :parent-id parent-id :children child-ids
                      :version (get-universal-time) :last-sync (get-universal-time)
-                     :hash hash))))
+                     :hash hash :scope scope))))
       (unless existing-obj (setf (gethash hash *memory-history*) obj))
       (setf (gethash id *memory-store*) obj)
       id)))