With-optimization-settings has wrong backquote/comma
https://gitlab.common-lisp.net/asdf/asdf/-/blob/master/uiop/lisp-build.lisp#L114
This line has a backquote where it needs a quote (before (optimize) and a redundant comma (before settings). It should be:
,@(when settings `((proclaim '(optimize ,@settings))))
On LispWorks, without the fix:
CL-USER 3 > (pprint (macroexpand '(uiop/lisp-build:with-optimization-settings (((debug 2) (safety 1))) body)))
(LET ((COMPILER::*OPTIMIZATION-LEVEL* COMPILER::*OPTIMIZATION-LEVEL*)) (PROCLAIM `(OPTIMIZE ,@((DEBUG 2) (SAFETY 1)))) BODY)
with the fix:
CL-USER 24 > (pprint (macroexpand '(uiop/lisp-build:with-optimization-settings (((debug 2) (safety 1))) body)))
(LET ((COMPILER::*OPTIMIZATION-LEVEL* COMPILER::*OPTIMIZATION-LEVEL*)) (PROCLAIM '(OPTIMIZE (DEBUG 2) (SAFETY 1))) BODY)