From 10aeba6ee5a3652ff124c12ff472b272dc5cb6c6 Mon Sep 17 00:00:00 2001
From: riton <riton@riton.home>
Date: Wed, 12 Feb 2025 16:50:50 +0300
Subject: path fix

---
 japonca.asd | 2 +-
 soru.lisp   | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/japonca.asd b/japonca.asd
index cc5a775..99669af 100644
--- 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")
diff --git a/soru.lisp b/soru.lisp
index 2e5f2b4..4b02b32 100644
--- 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*
-- 
cgit v1.2.3