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

fix(reason): Automatically convert :response plists to :CHAT messages
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:41:21 -04:00
parent 63e7e9ce32
commit bbc32a62b8
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
literate/reason.org
View File

@@ -66,7 +66,11 @@ The Reason stage is the cognitive engine of the OpenCortex. It bridges the gap b
(cleaned (if (stringp thought) (string-trim '(#\Space #\Newline #\Tab) thought) thought))) (cleaned (if (stringp thought) (string-trim '(#\Space #\Newline #\Tab) thought) thought)))
(if (stringp cleaned) (if (stringp cleaned)
(let ((*read-eval* nil)) (let ((*read-eval* nil))
(handler-case (read-from-string cleaned) (handler-case
(let ((parsed (read-from-string cleaned)))
(if (and (listp parsed) (getf parsed :response))
(list :TYPE :CHAT :TEXT (getf parsed :response))
parsed))
(error (c) (list :type :EVENT :payload (list :sensor :syntax-error :code cleaned :error (format nil "~a" c)))))) (error (c) (list :type :EVENT :payload (list :sensor :syntax-error :code cleaned :error (format nil "~a" c))))))
cleaned))))) cleaned)))))
#+end_src #+end_src

6
src/reason.lisp
View File

@@ -44,7 +44,11 @@
(cleaned (if (stringp thought) (string-trim '(#\Space #\Newline #\Tab) thought) thought))) (cleaned (if (stringp thought) (string-trim '(#\Space #\Newline #\Tab) thought) thought)))
(if (stringp cleaned) (if (stringp cleaned)
(let ((*read-eval* nil)) (let ((*read-eval* nil))
(handler-case (read-from-string cleaned) (handler-case
(let ((parsed (read-from-string cleaned)))
(if (and (listp parsed) (getf parsed :response))
(list :TYPE :CHAT :TEXT (getf parsed :response))
parsed))
(error (c) (list :type :EVENT :payload (list :sensor :syntax-error :code cleaned :error (format nil "~a" c)))))) (error (c) (list :type :EVENT :payload (list :sensor :syntax-error :code cleaned :error (format nil "~a" c))))))
cleaned))))) cleaned)))))