when running remote use relative url for test

This commit is contained in:
David Botton 2024-02-09 17:03:01 -05:00
parent ec4fee640e
commit f1525276a0

View file

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