Revert "FEAT: Implement Lisp Repair Syntax Gate"

This reverts commit 855157ccc6.
This commit is contained in:
2026-04-11 14:32:31 -04:00
parent 855157ccc6
commit a9a15b3d82
8 changed files with 2 additions and 205 deletions

View File

@@ -129,14 +129,7 @@ To call a tool, you MUST use:
(let ((regs (nth-value 1 (cl-ppcre:scan-to-strings "(?s)```(?:lisp)?\\n?(.*?)\\n?```" raw-thought))))
(if (and regs (> (length regs) 0)) (elt regs 0) raw-thought))
(string-trim '(#\Space #\Newline #\Tab) raw-thought))))
(suggestion (handler-case (read-from-string cleaned-thought)
(error (c)
(if (and (member :skill-lisp-repair *loaded-skills*)
(fboundp 'repair-lisp-syntax))
(repair-lisp-syntax cleaned-thought (format nil "~a" c))
(progn
(kernel-log "SYSTEM 1 ERROR: Invalid output format from LLM.~%")
nil))))))
(suggestion (ignore-errors (read-from-string cleaned-thought))))
(kernel-log "SYSTEM 1 Suggestion: ~a~%" cleaned-thought)
(when (and suggestion (listp suggestion))
(push suggestion suggestions))))