From 6ffa84af14a3583029e5da8008a26d0c0eb4bcfd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Mon, 16 Jan 2017 14:16:24 +0100 Subject: [PATCH] cmp: eval-when: be explicit about cl:load etc --- src/cmp/cmptop.lsp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp index b94021d26..26e5c8e8a 100644 --- a/src/cmp/cmptop.lsp +++ b/src/cmp/cmptop.lsp @@ -294,9 +294,9 @@ (execute-flag nil)) (dolist (situation (car args)) (case situation - ((LOAD :LOAD-TOPLEVEL) (setq load-flag t)) - ((COMPILE :COMPILE-TOPLEVEL) (setq compile-flag t)) - ((EVAL :EXECUTE) + ((CL:LOAD :LOAD-TOPLEVEL) (setq load-flag t)) + ((CL:COMPILE :COMPILE-TOPLEVEL) (setq compile-flag t)) + ((CL:EVAL :EXECUTE) (if *compile-toplevel* (setq compile-flag (or *compile-time-too* compile-flag)) (setq execute-flag t)))