From 80152b609225285251a49d1532bf8746bfbab35d Mon Sep 17 00:00:00 2001 From: riton Date: Fri, 28 Mar 2025 21:52:26 +0300 Subject: =?UTF-8?q?kaynak=20dosyalar=20src=20dizinine=20ta=C5=9F=C4=B1nd?= =?UTF-8?q?=C4=B1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- "tan\304\261m.lisp" | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 "tan\304\261m.lisp" (limited to 'tanım.lisp') diff --git "a/tan\304\261m.lisp" "b/tan\304\261m.lisp" deleted file mode 100644 index 43af26c..0000000 --- "a/tan\304\261m.lisp" +++ /dev/null @@ -1,20 +0,0 @@ -(in-package :html-jen) - -(defclass node () - ((tag :initarg :tag :accessor tag :initform nil - :documentation "HTML element tag keyword'ü") - (children :initarg :children :accessor children :initform nil - :documentation "Bu node'un altındaki node'lar") - (props :initarg :props :accessor props :initform nil - :documentation "HTML element attribute'ları ve değerleri") - (value :initarg :value :accessor value :initform nil - :documentation "HTML element metin içeriği"))) - -(defun node! (tag children props value) - (make-instance 'node :tag tag :children children :props props :value value)) - -(defun ebeveyn-node! (tag children &optional props) - (make-instance 'node :tag tag :children children :props props)) - -(defun çocuk-node! (tag value &optional props) - (make-instance 'node :tag tag :props props :value value)) -- cgit v1.2.3