added repl

This commit is contained in:
2024-07-23 16:15:31 +03:00
parent 4979a97e02
commit 1732b9a1a1
2 changed files with 14 additions and 2 deletions

View File

@@ -24,6 +24,9 @@
(format t "~{~a~^ ~}~%" args)
(uiop:run-program args :output *standard-output*))
(defun from-root (path)
(merge-pathnames path (asdf:system-source-directory :cl-forth)))
;; ,(file-namestring
;; (make-pathname :name (pathname-name path)
;; :type "o"))