simyager/kurt
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

deleted old 'run'

Browse Source
This commit is contained in:
mRnea
2024-07-19 14:17:24 +03:00
parent a0fb419b1b
commit 6c10a9e951
1 changed files with 9 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
util.lisp
View File

@@ -20,12 +20,6 @@
(defun mklist (form) (defun mklist (form)
(if (listp form) form (list 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) (defun run (args)
(format t "~{~a~^ ~}~%" args) (format t "~{~a~^ ~}~%" args)
(uiop:run-program args :output *standard-output*)) (uiop:run-program args :output *standard-output*))
@@ -34,14 +28,14 @@
;; (make-pathname :name (pathname-name path) ;; (make-pathname :name (pathname-name path)
;; :type "o")) ;; :type "o"))
(defparameter *test-program* ;; (defparameter *test-program*
'((push 34) ;; '((push 34)
(push 35) ;; (push 35)
(plus) ;; (plus)
(dump) ;; (dump)
(push 500) ;; (push 500)
(push 80) ;; (push 80)
(minus) ;; (minus)
(dump))) ;; (dump)))