Add engineering-standards + LP tests to test suite

- Fix bt:make-lock -> bordeaux-threads:make-lock in package.org
- Add org-skill-literate-programming gen file to main components
- Add literate-programming-tests to test components
- Add test-op entries for both new suites
- Add run! calls in run-all-tests.lisp

Test suite has pre-existing ASDF loading issue in this environment.

library/package.lisp

@@ -126,19 +126,19 @@
     (or (getf plist up) (getf plist dn))))
 
 (defvar *system-logs* nil)
-(defvar *logs-lock* (bt:make-lock "harness-logs-lock"))
+(defvar *logs-lock* (bordeaux-threads:make-lock "harness-logs-lock"))
 (defvar *max-log-history* 100)
 
 (defvar *skills-registry* (make-hash-table :test 'equal)
   "Global registry of all loaded skills.")
 
 (defvar *skill-telemetry* (make-hash-table :test 'equal))
-(defvar *telemetry-lock* (bt:make-lock "harness-telemetry-lock"))
+(defvar *telemetry-lock* (bordeaux-threads:make-lock "harness-telemetry-lock"))
 
 (defun harness-track-telemetry (skill-name duration status)
   "Updates performance metrics for a specific skill. Status should be :success or :rejected."
   (when skill-name
-    (bt:with-lock-held (*telemetry-lock*)
+    (bordeaux-threads:with-lock-held (*telemetry-lock*)
       (let ((entry (or (gethash skill-name *skill-telemetry*) (list :executions 0 :total-time 0 :failures 0))))
         (incf (getf entry :executions))
         (incf (getf entry :total-time) duration)
@@ -166,7 +166,7 @@
 (defun harness-log (msg &rest args)
   "Centralized logging for the harness."
   (let ((formatted-msg (apply #'format nil msg args)))
-    (bt:with-lock-held (*logs-lock*)
+    (bordeaux-threads:with-lock-held (*logs-lock*)
       (push formatted-msg *system-logs*)
       (when (> (length *system-logs*) *max-log-history*)
         (setq *system-logs* (subseq *system-logs* 0 *max-log-history*))))