ana fonksiyon ve executable üretimi

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

build.sh

@@ -0,0 +1,5 @@
+#!/bin/sh
+
+sbcl --eval '(asdf:load-system :html-jen)' \
+     --eval '(asdf:make :html-jen)' \
+     --eval '(quit)'

html-jen.asd

@@ -7,4 +7,7 @@
                (:file "tanım")
                (:file "okur")
                (:file "üretim")
-               (:file "ana")))
+               (:file "ana"))
+  :build-operation "program-op"
+  :build-pathname "html-üret"
+  :entry-point "html-jen::ana")