added repl

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