defop uses generic functions now. extended stack syntax

2024-08-06 23:02:14 +03:00
parent d989745845
commit b215590395
3 changed files with 170 additions and 115 deletions
--- a/main.lisp
+++ b/main.lisp
@@ -15,6 +15,8 @@
             (compile-program (second args)))
            ((string= flag "-i")
             (interpret-program (make-program (second args))))
+            ((string= flag "-p")
+             (format t "~a" (make-program (second args))))
            ((string= flag "-t")
             (run-tests))
            (t (format t "~a is not a valid flag~%" flag))))))