amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

feat(chaos): implement Tier 2 Integration Chaos for Memory, Networking, and LLM Gateway

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 17:32:15 -04:00
parent fc0c069d65
commit e31222d6e3
12 changed files with 185 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harness/tui-client.lisp
View File

@@ -79,11 +79,15 @@
(setf (fill-pointer *input-buffer*) 0)
(when (> (length cmd) 0)
(enqueue-msg (format nil "⬆ ~a" cmd))
(when (and stream (open-stream-p stream))
(format stream "~a" (opencortex:frame-message (list :TYPE :EVENT
:META (list :SOURCE :tui)
:PAYLOAD (list :SENSOR :user-input :TEXT cmd))))
(finish-output stream)))
(handler-case
(when (and stream (open-stream-p stream))
(format stream "~a" (opencortex:frame-message (list :TYPE :EVENT
:META (list :SOURCE :tui)
:PAYLOAD (list :SENSOR :user-input :TEXT cmd))))
(finish-output stream))
(error (c)
(push "ERROR: Connection to daemon lost." *chat-history*)
(setf *is-running* nil))))
(when (string= cmd "/exit") (setf *is-running* nil))
(when (string= cmd "/clear") (setf *chat-history* nil))))