From 2e4a23f7c94098cfcf486f84cc9aadf11bace808 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Sun, 2 Feb 2020 16:01:24 +0100
Subject: [PATCH] Revert "cmp: Allow for compile time evaluation of inlined
 forms"

This reverts commit b00e62f9d328662fad9b61de83a6ff6a2ae87621.
---
 src/cmp/cmptop.lsp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp
index 30389867d..6ca0a5626 100644
--- a/src/cmp/cmptop.lsp
+++ b/src/cmp/cmptop.lsp
@@ -281,9 +281,8 @@
     (cond ((not *compile-toplevel*)
            (c1progn (and execute-flag (rest args))))
           (load-flag
-           (if compile-flag
-               (cmp-eval (cons 'PROGN (rest args))))
-           (c1progn (rest args)))
+           (let ((*compile-time-too* compile-flag))
+             (c1progn (rest args))))
           (compile-flag
            (cmp-eval (cons 'PROGN (rest args)))
            (c1progn 'NIL))