gemini/fixed.lisp at main · jrm-code-project/gemini · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(defun improve-prompt ()
  (let ((prompt (uiop:read-file-lines (asdf/system:system-relative-pathname
                                       (asdf/system:find-system "gemini")
                                       "prompt.txt"))))
    (without-personality
      (invoke-gemini (format nil "Read a prompt from ~a, improve it as per the instructions in ~a, and write the improved prompt to ~a."
                             (asdf/system:system-relative-pathname
                              (asdf/system:find-system "gemini")
                              "prompt.txt")
                             (asdf/system:system-relative-pathname
                              (asdf/system:find-system "gemini")
                              "prompt.txt")
                             (asdf/system:system-relative-pathname
                              (asdf/system:find-system "gemini")
                              "prompt.txt"))))))