From f5f425a4cdd5c19049743c02c8aa29e027a60026 Mon Sep 17 00:00:00 2001
From: riton <riton@riton.home>
Date: Wed, 26 Mar 2025 22:03:04 +0300
Subject: dosya okumadan metinden okur yapma

---
 okur.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/okur.lisp b/okur.lisp
index 759ac16..108d648 100644
--- 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)))
-- 
cgit v1.2.3