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

fix(act): Route tool outputs to CLI and refine assistant conversational prompt
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 2s
Details

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-19 17:43:25 -04:00
parent bbc32a62b8
commit 199c5d09a1
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/act.lisp
View File

@@ -63,8 +63,12 @@
(handler-case (handler-case
(let* ((clean-args (if (and (listp tool-args) (listp (car tool-args))) (car tool-args) tool-args)) (let* ((clean-args (if (and (listp tool-args) (listp (car tool-args))) (car tool-args) tool-args))
(result (funcall (cognitive-tool-body tool) clean-args))) (result (funcall (cognitive-tool-body tool) clean-args)))
(list :type :EVENT :depth (1+ depth) :reply-stream (getf context :reply-stream) (let ((feedback (list :TYPE :EVENT :DEPTH (1+ depth) :REPLY-STREAM (getf context :REPLY-STREAM)
:payload (list :sensor :tool-output :result result :tool tool-name))) :PAYLOAD (list :SENSOR :tool-output :RESULT result :TOOL tool-name))))
;; If we have a reply stream, also send a chat message with the result
(when (getf context :REPLY-STREAM)
(dispatch-action (list :TYPE :CHAT :TEXT (format nil "TOOL [~a] RESULT: ~a" tool-name result)) context))
feedback))
(error (c) (error (c)
(list :type :EVENT :depth (1+ depth) :reply-stream (getf context :reply-stream) (list :type :EVENT :depth (1+ depth) :reply-stream (getf context :reply-stream)
:payload (list :sensor :tool-error :tool tool-name :message (format nil "~a" c))))) :payload (list :sensor :tool-error :tool tool-name :message (format nil "~a" c)))))