engineering/uncloseai.com
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update Makefile.languages paths and add commonlisp/scheme targets, fix Common Lisp timeout slot name conflict

Browse source
This commit is contained in:
Russell Ballestrini 2025-10-24 14:24:16 -04:00
parent dad7943c54
commit 9aa834852c
2 changed files with 80 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

6
public/languages/commonlisp/uncloseai.lisp
View file

@ -18,7 +18,7 @@
:documentation "List of TTS endpoint URLs")
(api-key :initform nil :initarg :api-key :accessor api-key
:documentation "Optional API key for authentication")
(timeout :initform 30 :initarg :timeout :accessor timeout
(request-timeout :initform 30 :initarg :request-timeout :accessor request-timeout
:documentation "Request timeout in seconds")))
(defun make-model-info (id endpoint max-tokens)
@ -73,11 +73,11 @@
client)
(defun make-uncloseai (&key model-endpoints tts-endpoints api-key (timeout 30))
(defun make-uncloseai (&key model-endpoints tts-endpoints api-key (request-timeout 30))
"Create a new uncloseai client with auto-discovery from environment variables"
(let ((client (make-instance 'uncloseai
:api-key api-key
:timeout timeout)))
:request-timeout request-timeout)))
(initialize-client client model-endpoints tts-endpoints)))
;;; Helper functions