From a9fe008702c89d9561ea766c7fe7febb8b8a6a61 Mon Sep 17 00:00:00 2001
From: Karsten Poeck <karsten.poeck@gmail.com>
Date: Sun, 3 Jan 2021 09:57:56 +0100
Subject: [PATCH] With compilation-speed proclamation, don't set speed to
 iverse value

---
 src/cmp/cmpenv-proclaim.lsp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmpenv-proclaim.lsp b/src/cmp/cmpenv-proclaim.lsp
index 2d955b1e7..e60cd6a76 100644
--- a/src/cmp/cmpenv-proclaim.lsp
+++ b/src/cmp/cmpenv-proclaim.lsp
@@ -48,7 +48,9 @@
                  (SAFETY (setq *safety* (second x)))
                  (SPACE (setq *space* (second x)))
                  (SPEED (setq *speed* (second x)))
-                 (COMPILATION-SPEED (setq *speed* (- 3 (second x))))
+                 (COMPILATION-SPEED
+                  ;; FIXME! This proclamation is ignored
+                  )
                  (t (warn "The OPTIMIZE quality ~s is unknown." (car x)))))))
     (TYPE
      (if (consp (cdr decl))
-- 
GitLab