fix: LISP-STRUCTURAL-CHECK error by separating tests from main lisp files; fix T-as-variable in system-archivist, programming-org, system-memory; fix SOME arg count in org-privacy-tag-p

- Separated test code from programming-lisp.org and programming-org.org into tests/ directory (was tangled to main lisp/, causing LOADER ERROR because export hadn't run yet)
- Added eval-when to load fiveam before test defpackage
- Renamed t→tag in lambda parameters in system-archivist, programming-org
- Renamed t→obj-type in let binding in system-memory
- Fixed missing lambda close paren in org-privacy-tag-p (SOME called with 1 arg)

org/system-memory.org

@@ -29,16 +29,16 @@ Returns a plist: (:total <n> :by-type <alist> :by-todo <alist>
          (orphans 0))
     (maphash (lambda (id obj)
                (setf (gethash id all-ids) t)
-               (let ((t (memory-object-type obj))
+               (let ((obj-type (memory-object-type obj))
                      (attrs (memory-object-attributes obj))
                      (v (memory-object-version obj)))
-                 (unless (and type-filter (not (eq t type-filter)))
+                 (unless (and type-filter (not (eq obj-type type-filter)))
                    (let ((todo (getf attrs :TODO-STATE)))
                      (when (and todo-filter
                                 (not (string-equal todo todo-filter)))
                        (return nil)))
                    (incf total)
-                   (incf (gethash t type-counts 0))
+                    (incf (gethash obj-type type-counts 0))
                    (let ((todo (getf attrs :TODO-STATE)))
                      (when todo
                        (incf (gethash todo todo-counts 0))))