Move LP checks from Engineering Standards to LP skill

- Removed *tangle-targets* and check-tangle-sync from engineering-standards.org
- Fixed LP org: added (in-package), fixed block balance, fixed return-from
- Fixed literate-check-block-balance to return (values nil reason) on imbalance
- Updated LP tests to work with *tangle-targets* override
- Regenerated all .lisp from org via emacs --batch
- Added LP gen back to opencortex.asd

Test results:
- Engineering Standards: 9/10 (90%)
- Literate Programming: 7/7 (100%)

tests/literate-programming-tests.lisp

@@ -11,18 +11,43 @@
 
 (test tangle-sync-detects-stale-lisp
   "check-tangle-sync returns violation when .lisp is newer than .org"
-  (let ((tmp-org "/tmp/test-skill.org")
-        (tmp-lisp "/tmp/test-skill.lisp"))
+  (let* ((root (uiop:ensure-directory-pathname "/tmp/lp-test/"))
+         (tmp-org (merge-pathnames "skills/test-skill.org" root))
+         (tmp-lisp (merge-pathnames "library/gen/test-skill.lisp" root)))
+    (uiop:ensure-all-directories-exist (list (directory-namestring tmp-org) (directory-namestring tmp-lisp)))
     (with-open-file (f tmp-org :direction :output) (write-line "* Test" f))
     (sleep 1)
     (with-open-file (f tmp-lisp :direction :output) (write-line "(defun test () t)" f))
-    (let* ((root (uiop:ensure-directory-pathname "/tmp/"))
-           (result (opencortex::check-tangle-sync root)))
-      (is (listp result))
-      (is (eq :log (getf result :type)))
-      (is (search "LITERATE PROGRAMMING VIOLATION" (getf (getf result :payload) :text)))
-      (uiop:delete-file-if-exists tmp-org)
-      (uiop:delete-file-if-exists tmp-lisp))))
+    (let ((orig-targets opencortex::*tangle-targets*))
+      (setf opencortex::*tangle-targets*
+            (cons '("skills/test-skill.org" . "library/gen/test-skill.lisp") orig-targets))
+      (unwind-protect
+          (let ((result (opencortex::check-tangle-sync root)))
+            (is (listp result))
+            (is (eq :log (getf result :type)))
+            (is (search "LITERATE PROGRAMMING VIOLATION" (getf (getf result :payload) :text))))
+        (setf opencortex::*tangle-targets* orig-targets)))
+    (uiop:delete-file-if-exists tmp-org)
+    (uiop:delete-file-if-exists tmp-lisp)))
+
+(test tangle-sync-passes-when-synced
+  "check-tangle-sync returns nil when .org is newer than .lisp"
+  (let* ((root (uiop:ensure-directory-pathname "/tmp/lp-test2/"))
+         (tmp-org (merge-pathnames "skills/test-skill2.org" root))
+         (tmp-lisp (merge-pathnames "library/gen/test-skill2.lisp" root)))
+    (uiop:ensure-all-directories-exist (list (directory-namestring tmp-org) (directory-namestring tmp-lisp)))
+    (with-open-file (f tmp-lisp :direction :output) (write-line "(defun test () t)" f))
+    (sleep 1)
+    (with-open-file (f tmp-org :direction :output) (write-line "* Test" f))
+    (let ((orig-targets opencortex::*tangle-targets*))
+      (setf opencortex::*tangle-targets*
+            (cons '("skills/test-skill2.org" . "library/gen/test-skill2.lisp") orig-targets))
+      (unwind-protect
+          (let ((result (opencortex::check-tangle-sync root)))
+            (is (null result)))
+        (setf opencortex::*tangle-targets* orig-targets)))
+    (uiop:delete-file-if-exists tmp-org)
+    (uiop:delete-file-if-exists tmp-lisp)))
 
 (test tangle-sync-passes-when-synced
   "check-tangle-sync returns nil when .org is newer than .lisp"