dosya okumadan metinden okur yapma

2025-03-26 22:03:04 +03:00
parent 37406afc30
commit f5f425a4cd
1 changed files with 3 additions and 0 deletions
--- a/okur.lisp
+++ b/okur.lisp
@@ -31,6 +31,9 @@
      (dosya-metni-oku dosya-ismi)
    (make-instance 'okur :metin metin :uzunluk uzunluk :dosya-ismi dosya-ismi)))

+(defun metin-okur! (metin)
+  (make-instance 'okur :metin metin :uzunluk (length metin) :dosya-ismi ""))
+
 (defmethod son? ((okur okur) index)
  (>= index
      (uzunluk okur)))