From 1615d72900a1bd8d1261cdac52e30e0bac7989b8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Thu, 7 Dec 2023 14:28:01 +0100
Subject: [PATCH] cmp: don't attempt to inline constant values with make-load
 forms

This recent regression caused issues when we try to inline values of constants
that are structures. Fixes #727.
---
 src/cmp/cmppass1-eval.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmppass1-eval.lsp b/src/cmp/cmppass1-eval.lsp
index 51a5f3d91..ec77e6ed6 100644
--- a/src/cmp/cmppass1-eval.lsp
+++ b/src/cmp/cmppass1-eval.lsp
@@ -138,7 +138,7 @@
 ;;; of the value must be EQL to each other.
 (defun c1constant-symbol-value (name val)
   (declare (ignore name))
-  (let ((si:*compiler-constants* t))    ; don't create make-load forms
+  (unless (si:need-to-make-load-form-p val)
     (add-object val)))
 
 (defun c1if (args)