node tanımı, tanım dosyasına taşındı

html-jen.lisp

@@ -1,26 +1,5 @@
 (in-package :html-jen)
 
-(defun dosya-metni-oku (dosya)
-  (let* ((uzunluk 0)
-         (metin
-           (with-output-to-string (out)
-             (with-open-file (in dosya :external-format :utf-8)
-               (loop :with arabellek := (make-array 8192 :element-type 'character)
-                     :for n := (read-sequence arabellek in)
-                     :while (< 0 n)
-                     :do (incf uzunluk n)
-                         (write-sequence arabellek out :start 0 :end n))))))
-    (values metin uzunluk)))
-
-(defclass node ()
-  ((tag :initarg :tag :accessor tag :initform nil)
-   (children :initarg :children :accessor children :initform nil)
-   (props :initarg :props :accessor props :initform nil)
-   (value :initarg :value :accessor value :initform nil)))
-
-(defun node! (tag children props value)
-  (make-instance 'node :tag tag :children children :props props :value value))
-
 (defparameter *indent* 0)
 (defparameter *indent-increment* 2)
 (defparameter *yeni-satır* t)