fix(harness): resolve compile errors
- FIX: memory.lisp - rename copy-org-object to deep-copy-org-object to avoid conflict with defstruct auto-generated copier - FIX: reason.lisp - fix malformed char= syntax on line 74 (was: #\((char= ... should be: or (char= ... #\() (char= ... #\[))
This commit is contained in:
@@ -71,7 +71,7 @@
|
||||
assistant-name reflection-feedback tool-belt global-context system-logs)))
|
||||
(let* ((thought (probabilistic-call raw-prompt :system-prompt system-prompt :context context))
|
||||
(cleaned (strip-markdown thought)))
|
||||
(if (and cleaned (stringp cleaned) (> (length cleaned) 0) (char= (char cleaned 0) #\((char= (char cleaned 0) #\()))
|
||||
(if (and cleaned (stringp cleaned) (> (length cleaned) 0) (or (char= (char cleaned 0) #\() (char= (char cleaned 0) #\[)))
|
||||
(handler-case
|
||||
(let ((parsed (read-from-string cleaned)))
|
||||
(if (listp parsed)
|
||||
|
||||
Reference in New Issue
Block a user