diff options
| -rw-r--r-- | util.lisp | 24 |
1 files changed, 9 insertions, 15 deletions
@@ -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))) |