From 1732b9a1a137d8a7e6476e8cdfa254c01638bce3 Mon Sep 17 00:00:00 2001
From: mRnea <akannemre@gmail.com>
Date: Tue, 23 Jul 2024 16:15:31 +0300
Subject: added repl

---
 util.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'util.lisp')

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"))
-- 
cgit v1.2.3