added a simple test for macros, also more cli stuff

main.lisp

@@ -56,14 +56,22 @@
           (finish))
         (simulate-program (parse-tokens (lex-line line 0)))))
 
+(defun comp-options ()
+  (list (clingon:make-option
+         :filepath
+         :description "Kaynak dosyasını belirt."
+         :short-name #\k
+         :key :kaynak)))
+
 (defun subcommands ()
   (list (clingon:make-command
          :name "derle"
          :description "Dosyadaki programı derle"
          :usage "<dosya-ismi>"
+         :options (comp-options)
          :handler (lambda (cmd) (generate-program
                             (make-program
-                             (car (clingon:command-arguments cmd)))
+                             (clingon:getopt cmd :kaynak))
                             :compile t)))
         (clingon:make-command
          :name "test"
@@ -122,13 +130,6 @@
 ;;          :short-name #\s
 ;;          :key :simulate)))
 
-;; (defun comp-options ()
-;;   (list (clingon:make-option
-;;          :filepath
-;;          :description "Dosyadaki programı derle."
-;;          :short-name #\c
-;;          :key :compile)))
-
 ;; (defun test-options ()
 ;;   (list (clingon:make-option
 ;;          :flag

test/makro.lorth

@@ -0,0 +1,6 @@
+;;; test
+;;; (format nil "Hello world!..~%")
+makro write değiş 1 syscall-3 son
+makro stdout 1 son
+
+stdout "Hello world!..\n" write