simyager/japonca
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

path fix

Browse Source
This commit is contained in:
riton
2025-02-12 16:50:50 +03:00
parent d683a2e52f
commit 10aeba6ee5
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
japonca.asd
View File

@@ -1,7 +1,7 @@
(defsystem japonca (defsystem japonca
:author "Emre Akan" :author "Emre Akan"
;; :license "" ;; :license ""
;; :depends-on () :depends-on (uiop)
:description "Japonca bilgisini pekiştirmek amaçlı soru soran program" :description "Japonca bilgisini pekiştirmek amaçlı soru soran program"
:components ((:file "paket") :components ((:file "paket")
(:file "util") (:file "util")

4
soru.lisp
View File

@@ -3,7 +3,9 @@
(setf *random-state* (make-random-state t)) (setf *random-state* (make-random-state t))
(defparameter *kelimeler* nil) (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ı*)) (defun kelimeleri-yükle (&optional (dosya *kelimeler-dosyası*))
(setf *kelimeler* (setf *kelimeler*