Function: gptel--make-tool-internal--cmacro

gptel--make-tool-internal--cmacro is a function defined in gptel-request.el.

Signature

(gptel--make-tool-internal--cmacro CL-WHOLE &cl-quote &key FUNCTION NAME DESCRIPTION ARGS ASYNC CATEGORY CONFIRM INCLUDE &allow-other-keys)

Documentation

compiler-macro for gptel--make-tool-internal.

Source Code

;; Defined in /nix/store/q3r7g81pvghw7a523kjk2k2zih3pfk8z-emacs-packages-deps/share/emacs/site-lisp/elpa/gptel-20261002.545/gptel-request.el
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       (#'(car (cdr (plist-member --cl-rest-- ':function)))
	(name (car (cdr (plist-member --cl-rest-- ':name))))
	(description
	 (car (cdr (plist-member --cl-rest-- ':description))))
	(args (car (cdr (plist-member --cl-rest-- ':args))))
	(async (car (cdr (plist-member --cl-rest-- ':async))))
	(category (car (cdr (plist-member --cl-rest-- ':category))))
	(confirm (car (cdr (plist-member --cl-rest-- ':confirm))))
	(include
	 (car (cdr (or (plist-member --cl-rest-- ':include) '(nil t))))))
     (cl-block gptel--make-tool-internal--cmacro
       (cl--defsubst-expand
	'(function name description args async category confirm
		   include)
	'(cl-block gptel--make-tool-internal
	   (record 'gptel-tool function name description args async
		   category confirm include))
	nil cl-whole nil function name description args async category
	confirm include))))
  (cl-struct-gptel-tool-tags jotain-doc--kind-helpful
			     jotain-doc--sym-pkg jotain-doc--face-syms
			     jotain-doc--var-syms jotain-doc--fun-syms
			     jotain-doc--skipped jotain-doc--pkg-dirs
			     jotain-doc--quick)
  nil
  "compiler-macro for `gptel--make-tool-internal'.\n\n(fn CL-WHOLE &cl-quote &key FUNCTION NAME DESCRIPTION ARGS ASYNC CATEGORY CONFIRM INCLUDE &allow-other-keys)"]