From 6c10a9e951b6a6944bf4a8cafc52168af1f11b27 Mon Sep 17 00:00:00 2001 From: mRnea Date: Fri, 19 Jul 2024 14:17:24 +0300 Subject: deleted old 'run' --- util.lisp | 24 +++++++++--------------- 1 file changed, 9 insertions(+), 15 deletions(-) (limited to 'util.lisp') diff --git a/util.lisp b/util.lisp index 813f55b..1ff6f9d 100644 --- a/util.lisp +++ b/util.lisp @@ -20,12 +20,6 @@ (defun mklist (form) (if (listp form) form (list form))) -;; (defmacro run (args) -;; (let ((sym (gensym))) -;; `(let ((,sym ,args)) -;; (format t "~{~a~^ ~}~%" ,sym) -;; (uiop:run-program ,sym)))) - (defun run (args) (format t "~{~a~^ ~}~%" args) (uiop:run-program args :output *standard-output*)) @@ -34,14 +28,14 @@ ;; (make-pathname :name (pathname-name path) ;; :type "o")) -(defparameter *test-program* - '((push 34) - (push 35) - (plus) - (dump) - (push 500) - (push 80) - (minus) - (dump))) +;; (defparameter *test-program* +;; '((push 34) +;; (push 35) +;; (plus) +;; (dump) +;; (push 500) +;; (push 80) +;; (minus) +;; (dump))) -- cgit v1.2.3