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/programming-org.org

@@ -33,9 +33,9 @@ Structural manipulation tools for Org-mode files. This skill handles reading, wr
       (some (lambda (tag)
               (some (lambda (private-tag)
                       (string-equal (string-trim '(#\: #\space) tag)
-                                    (string-trim '(#\: #\space) private-tag))
+                                    (string-trim '(#\: #\space) private-tag)))
                     privacy-tags))
-            tags-list)))))
+            tags-list))))
 
 #+end_src
 ** org-privacy-strip
@@ -299,7 +299,7 @@ AST format: (:TYPE :HEADLINE :properties (:ID ... :TITLE ... :TAGS (...))
     ;; Headline
     (setf output (format nil "~a~@[ ~a~] ~a" stars todo title))
     (when tags
-      (let ((tag-str (format nil "~{~a~^:~}" (mapcar (lambda (t) (string-trim '(#\:) t)) tags))))
+      (let ((tag-str (format nil "~{~a~^:~}" (mapcar (lambda (tag) (string-trim '(#\:) tag)) tags))))
         (setf output (concatenate 'string output (format nil " :~a::~%" tag-str))))
       (setf output (concatenate 'string output (string #\Newline))))
     (unless tags
@@ -331,7 +331,10 @@ AST format: (:TYPE :HEADLINE :properties (:ID ... :TITLE ... :TAGS (...))
 
 * Test Suite
 Verification of the structural manipulation for Org-mode files and their AST representation.
-#+begin_src lisp :tangle ../lisp/programming-org.lisp
+#+begin_src lisp :tangle ../tests/programming-org-tests.lisp
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (ignore-errors (ql:quickload :fiveam :silent t)))
+
 (defpackage :passepartout-utils-org-tests
   (:use :cl :fiveam :passepartout)
   (:export #:utils-org-suite))