defop uses generic functions now. extended stack syntax

1 files changed, 2 insertions, 0 deletions

diff --git a/main.lisp b/main.lisp
index 701aa9e..0b29edb 100644
--- 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))))))