deleted old 'run'

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)))