From a1ba1c9fc9b907f19aa8087b49bac4426f12a679 Mon Sep 17 00:00:00 2001 From: David Botton Date: Mon, 1 Apr 2024 00:01:14 -0400 Subject: [PATCH] get rid of prompts for dist update --- tools/clog-builder.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index 78d60cf..c99b85f 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -312,9 +312,9 @@ clog-builder window.") "CLOG Update" "Results of update will apear when completed." :color-class "w3-green" :time-out 2)) - (let ((results (capture-eval "(ql:update-all-dists)" :clog-obj body))) + (let ((results (capture-eval "(ql:update-all-dists :prompt nil)" :clog-obj body))) (if *app-mode* - (on-open-file body :title "CLOG Updated - Close builder, rerun make.bat/make and rerun." + (on-open-file body :title "CLOG Updated - Close builder, rerun make/update and rerun." :title-class "w3-green w3-animate-top" :text results) (on-open-file body :title "CLOG Updated - Close builder, rerun (ql:quickload :clog/tools)(clog-tools:clog-builder)"