passepartout: v0.5.1 — Compilation Hardening

Fixed 3 real compilation errors:
- security-vault.lisp: bare defvar missing opening paren
- embedding-native.lisp: CFFI struct refs updated (llama-mparams→(:struct ...), 19 places)
- symbolic-events.lisp: heartbeat vars + save-memory-to-disk → passepartout:: prefix

Suppressed ~100 harmless cross-skill STYLE-WARNINGs:
- Added grep filter for STYLE-WARNING / WARNING: redefining
  in the pre-compile step of the passepartout bash script

ROADMAP updated: all v0.5.1 items marked DONE.
Test suite: 116/116 (100%)
This commit is contained in:
2026-05-08 09:16:33 -04:00
parent c86d079418
commit f6079246ee
16 changed files with 186 additions and 203 deletions

View File

@@ -22,56 +22,43 @@ jobs:
- name: Check for forbidden patterns
run: |
! grep -r "json\." --include="*.lisp" . && \
! grep -r "json\." --include="*.lisp" lisp/ && \
echo "OK: No JSON in Lisp files"
- name: Check skills have lisp source blocks
- name: Check org files have lisp source blocks
run: |
FAIL=0
for f in skills/*.org; do
for f in org/*.org; do
if ! grep -q "#+begin_src lisp" "$f"; then
echo "WARNING: $f has no lisp blocks"
FAIL=1
fi
done
find . -name "*.org" -path "*/skills/*" -exec grep -L "#+begin_src lisp" {} \; | \
grep -v "CLA\|CONTRIBUTING\|CHANGELOG\|README\|USER_MANUAL" || true
echo "OK: All skills have lisp blocks"
echo "OK: Org files checked for lisp blocks"
- name: Verify each .lisp has a corresponding .org source
run: |
FAIL=0
for f in harness/*.lisp tests/*.lisp; do
for f in lisp/*.lisp test/*.lisp; do
[ -f "$f" ] || continue
org="${f%.lisp}.org"
[ -f "$org" ] && continue
base=$(basename "$f" .lisp)
# Check if generated from a parent org via :tangle
parent="${base%-tests}.org"
parent="${parent%-validator}.org"
parent="${parent%-client}.org"
if [ -f "harness/$parent" ] || [ -f "skills/$parent" ]; then
: # generated from parent org via :tangle
elif grep -q ":tangle.*$(basename "$f")" harness/*.org skills/*.org 2>/dev/null; then
: # :tangle reference found in another org
if [ -f "org/${base}.org" ]; then
: # direct match
else
echo "WARNING: $f has no corresponding .org source"
FAIL=1
fi
done
for f in skills/*.lisp; do
[ -f "$f" ] || continue
org="${f%.lisp}.org"
if [ ! -f "$org" ]; then
echo "ERROR: $f has no .org source"
FAIL=1
# Check if generated from a parent org via :tangle header
if grep -q ":tangle.*$(basename "$f")" org/*.org 2>/dev/null; then
: # :tangle reference found
else
echo "WARNING: $f has no corresponding .org source"
FAIL=1
fi
fi
done
[ "$FAIL" = 0 ] && echo "OK: All .lisp files have .org sources"
- name: Check literate granularity (one function per block)
run: |
for f in skills/*.org; do
for f in org/*.org; do
blocks=$(grep -c "^[[:space:]]*(defun " "$f" 2>/dev/null || true)
srcblocks=$(grep -c "#+begin_src lisp" "$f" 2>/dev/null || true)
if [ "$blocks" -gt "$srcblocks" ] && [ "$srcblocks" -gt 0 ]; then