From f1525276a09c97d34c7b29cad4f8ed9b8ed8624c Mon Sep 17 00:00:00 2001 From: David Botton Date: Fri, 9 Feb 2024 17:03:01 -0500 Subject: [PATCH] when running remote use relative url for test --- tools/clog-builder.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 0bb9064..93c26f4 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -1526,7 +1526,7 @@ It parse the string TEXT without using READ functions." (if *app-mode* (open-browser :url (format nil "http://127.0.0.1:~A/test" *clog-port*)) (open-window (window (connection-body obj)) - (format nil "http://127.0.0.1:~A/test" *clog-port*))) + (format nil "/test" *clog-port*))) (on-open-file obj :title-class "w3-yellow" :title "test eval" :text result))) (defun on-show-control-properties-win (obj)