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:
2026-04-30 10:58:22 -04:00
parent 1080f0b873
commit ddc60b8ff7
2 changed files with 4 additions and 3 deletions

View File

@@ -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)