path fix

2025-02-12 16:50:50 +03:00
parent d683a2e52f
commit 10aeba6ee5
2 changed files with 4 additions and 2 deletions
--- a/japonca.asd
+++ b/japonca.asd
@@ -1,7 +1,7 @@
 (defsystem japonca
  :author "Emre Akan"
  ;; :license ""
-  ;; :depends-on ()
+  :depends-on (uiop)
  :description "Japonca bilgisini pekiştirmek amaçlı soru soran program"
  :components ((:file "paket")
               (:file "util")
--- a/soru.lisp
+++ b/soru.lisp
@@ -3,7 +3,9 @@
 (setf *random-state* (make-random-state t))

 (defparameter *kelimeler* nil)
-(defparameter *kelimeler-dosyası* "/home/riton/projects/japonca/kelimeler.txt")
+(defparameter *kelimeler-dosyası*
+  (format nil "/home/~a/projects/japonca/kelime/kelimeler.txt"
+          (uiop:hostname)))

 (defun kelimeleri-yükle (&optional (dosya *kelimeler-dosyası*))
  (setf *kelimeler*