From b2155903956b6ddf41ed64fccb4263858fff8d4f Mon Sep 17 00:00:00 2001 From: mRnea Date: Tue, 6 Aug 2024 23:02:14 +0300 Subject: defop uses generic functions now. extended stack syntax --- main.lisp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'main.lisp') 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)))))) -- cgit v1.2.3