Revert "FEAT: Implement Lisp Repair Syntax Gate"
This reverts commit 855157ccc6.
This commit is contained in:
@@ -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))))
|
||||
|
||||
Reference in New Issue
Block a user