mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-30 04:10:44 -08:00
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:
parent
758ebc6230
commit
1615d72900
1 changed files with 1 additions and 1 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue