amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix: add generate-tool-belt-prompt alias for cognitive-tool-prompt
Some checks failed
Deploy (Gitea) / deploy (push) Failing after 3s
Details

Browse Source 
Another naming drift: think() calls generate-tool-belt-prompt but the
actual function was cognitive-tool-prompt in core-defpackage.
This commit is contained in:
Amr Gharbeia
2026-05-03 20:21:25 -04:00
parent 3c3557f519
commit 7393e69397
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/core-defpackage.lisp
View File

@@ -217,6 +217,10 @@
(format nil "Available tools:~%~a" (apply #'concatenate 'string (sort descriptions #'string<))) (format nil "Available tools:~%~a" (apply #'concatenate 'string (sort descriptions #'string<)))
"No tools registered."))) "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) (defun log-message (msg &rest args)
"Centralized, thread-safe logging for the harness." "Centralized, thread-safe logging for the harness."
(let ((formatted-msg (apply #'format nil msg args))) (let ((formatted-msg (apply #'format nil msg args)))

4
org/core-defpackage.org
View File

@@ -270,6 +270,10 @@ Tools that the LLM can invoke are registered here. Each tool has a name, descrip
(if descriptions (if descriptions
(format nil "Available tools:~%~a" (apply #'concatenate 'string (sort descriptions #'string<))) (format nil "Available tools:~%~a" (apply #'concatenate 'string (sort descriptions #'string<)))
"No tools registered."))) "No tools registered.")))
;; Alias: generate-tool-belt-prompt → cognitive-tool-prompt
(defun generate-tool-belt-prompt ()
(cognitive-tool-prompt))
#+end_src #+end_src
*** Centralized logging (log-message) *** Centralized logging (log-message)