From 7393e69397af29240f6d9af3a54bc970e58baf9f Mon Sep 17 00:00:00 2001 From: Amr Gharbeia Date: Sun, 3 May 2026 20:21:25 -0400 Subject: [PATCH] fix: add generate-tool-belt-prompt alias for cognitive-tool-prompt Another naming drift: think() calls generate-tool-belt-prompt but the actual function was cognitive-tool-prompt in core-defpackage. --- lisp/core-defpackage.lisp | 4 ++++ org/core-defpackage.org | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/lisp/core-defpackage.lisp b/lisp/core-defpackage.lisp index 8c20050..44d6a32 100644 --- a/lisp/core-defpackage.lisp +++ b/lisp/core-defpackage.lisp @@ -217,6 +217,10 @@ (format nil "Available tools:~%~a" (apply #'concatenate 'string (sort descriptions #'string<))) "No tools registered."))) +;; Alias: generate-tool-belt-prompt → cognitive-tool-prompt +(defun generate-tool-belt-prompt () + (cognitive-tool-prompt)) + (defun log-message (msg &rest args) "Centralized, thread-safe logging for the harness." (let ((formatted-msg (apply #'format nil msg args))) diff --git a/org/core-defpackage.org b/org/core-defpackage.org index d6bf0d2..a7b7f9c 100644 --- a/org/core-defpackage.org +++ b/org/core-defpackage.org @@ -270,6 +270,10 @@ Tools that the LLM can invoke are registered here. Each tool has a name, descrip (if descriptions (format nil "Available tools:~%~a" (apply #'concatenate 'string (sort descriptions #'string<))) "No tools registered."))) + +;; Alias: generate-tool-belt-prompt → cognitive-tool-prompt +(defun generate-tool-belt-prompt () + (cognitive-tool-prompt)) #+end_src *** Centralized logging (log-message)