ana fonksiyon ve executable üretimi

1 files changed, 7 insertions, 0 deletions

diff --git a/ana.lisp b/ana.lisp
index ac4c9ca..4b74169 100644
--- a/ana.lisp
+++ b/ana.lisp
@@ -27,3 +27,10 @@
                                  :if-does-not-exist :create
                                  :if-exists :supersede)
         (şablonlu-yazdır root dış)))))
+
+(defun ana ()
+  (let ((args sb-ext:*posix-argv*))
+    (assert (= 3 (length args)))
+    (let ((kaynak (nth 1 args))
+          (hedef (nth 2 args)))
+      (markdown->html kaynak hedef))))