From 79d33bdd832ce135788063dd1aee8ef50e7b09da Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 25 Oct 2025 15:44:10 +0200 Subject: [PATCH] cmp: fix typo --- src/cmp/cmpbackend-cxx/cmppass2-data.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpbackend-cxx/cmppass2-data.lsp b/src/cmp/cmpbackend-cxx/cmppass2-data.lsp index bd0c09c0c..2f026584b 100644 --- a/src/cmp/cmpbackend-cxx/cmppass2-data.lsp +++ b/src/cmp/cmpbackend-cxx/cmppass2-data.lsp @@ -399,7 +399,8 @@ ((typep value 'character *cmp-env*) (wt-character value vv)) ((typep value 'float *cmp-env*) (wt-number value vv)) ((typep value '(complex float) *cmp-env*) (wt-number value vv)) - (t (baboon "wt-vv-value: ~s is not an immediate value, but has no VV index~%" value)))) + (t (baboon :format-control "wt-vv-value: ~s is not an immediate value, but has no VV index~%" + :format-arguments (list value))))) (defun wt-vv (vv-loc) (setf (vv-used-p vv-loc) t)