From af3d3a00c86876b35f754f504edfe4357bd3cbf7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Fri, 10 Nov 2023 14:37:29 +0100 Subject: [PATCH] cmp: with-compiler-env: handle COMPILER-INTERNAL-ERROR first We've handled COMPILER-ERROR before COMPILER-INTERNAL-ERROR, but the latter is a subclass of the former, so it was never triggered. --- src/cmp/cmputil.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmputil.lsp b/src/cmp/cmputil.lsp index 31741c87c..38782729a 100644 --- a/src/cmp/cmputil.lsp +++ b/src/cmp/cmputil.lsp @@ -70,8 +70,8 @@ (restart-case (handler-bind ((compiler-note #'handle-compiler-note) (warning #'handle-compiler-warning) - (compiler-error #'handle-compiler-error) (compiler-internal-error #'handle-compiler-internal-error) + (compiler-error #'handle-compiler-error) (serious-condition #'handle-compiler-internal-error)) (mp:with-lock (mp:+load-compile-lock+) (let ,+init-env-form+