dosya okumadan metinden okur yapma

1 files changed, 3 insertions, 0 deletions

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)))