1 files changed, 3 insertions, 0 deletions
diff --git a/util.lisp b/util.lisp
index 1ff6f9d..b97b0fa 100644
--- a/util.lisp
+++ b/util.lisp
@@ -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"))