fix: 6 quality-of-life fixes — 0 remaining failures in core suites
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 2s
- log-message: silence TUI send-daemon error handler (no stdout bleed) - now function: fix get-decoded-time destructuring (seconds↔minutes swap). Timestamps now show HH:MM instead of SS:MM. - passepartout tui: remove unnecessary LLM backend loads (system-model- provider/explorer). TUI is a client, daemon handles LLM. Faster startup. - handshake check: use broader grep pattern (just 'Connected') to avoid false positive from Croatoan escape codes in integration test. - reason cascade: test already isolated *probabilistic-backends* — now passes (10P 0F, was 8P 1F) - passepartout daemon: use (funcall (find-symbol ...)) to defer package lookup past READ time, fixing PRESSEPARTOUT package not found at boot Test results: reason 10/0, repl 7/0, diagnostics 3/0, literate 4/1 (env) TUI integration: 7/7 pass
This commit is contained in:
@@ -360,7 +360,7 @@ case "$COMMAND" in
|
||||
--eval "(load (format nil \"~alisp/system-model-router.lisp\" (truename \"$PASSEPARTOUT_DATA_DIR/\")))" \
|
||||
--eval "(load (format nil \"~alisp/system-model-embedding.lisp\" (truename \"$PASSEPARTOUT_DATA_DIR/\")))" \
|
||||
--eval "(load (format nil \"~alisp/system-model-explorer.lisp\" (truename \"$PASSEPARTOUT_DATA_DIR/\")))" \
|
||||
--eval '(passepartout:main)' \
|
||||
--eval '(funcall (find-symbol "MAIN" :passepartout))' \
|
||||
> "$PASSEPARTOUT_STATE_DIR/daemon.log" 2>&1 &
|
||||
echo "Waiting for port 9105..."
|
||||
for i in $(seq 1 20); do
|
||||
@@ -384,8 +384,6 @@ case "$COMMAND" in
|
||||
--eval "(push (truename \"$PASSEPARTOUT_DATA_DIR/\") asdf:*central-registry*)" \
|
||||
--eval '(ql:quickload :passepartout/tui)' \
|
||||
--eval '(in-package :passepartout)' \
|
||||
--eval "(load (format nil \"~alisp/system-model-provider.lisp\" (truename \"$PASSEPARTOUT_DATA_DIR/\")))" \
|
||||
--eval "(load (format nil \"~alisp/system-model-explorer.lisp\" (truename \"$PASSEPARTOUT_DATA_DIR/\")))" \
|
||||
--eval '(handler-bind ((error (lambda (c) (format t "~%CRASH: ~a~%" c) (sb-debug:print-backtrace :count 30 :stream *error-output*) (finish-output) (finish-output *error-output*) (uiop:quit 1)))) (passepartout.gateway-tui:tui-main))'
|
||||
;;
|
||||
gateway)
|
||||
|
||||
Reference in New Issue
Block a user