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.
This commit is contained in:
Daniel Kochmański 2023-12-07 14:28:01 +01:00
parent 758ebc6230
commit 1615d72900

View file

@ -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)