diff options
| author | Stas Boukarev <stassats@gmail.com> | 2024-03-22 14:59:16 +0300 |
|---|---|---|
| committer | Stas Boukarev <stassats@gmail.com> | 2024-03-22 14:59:16 +0300 |
| commit | e32df443310d65d79884542c846408e3296fc739 (patch) | |
| tree | d5151c9c96d1df36b80f929c3abeb817ab7d23c9 | |
| parent | eecede53b3f27556d94d6265214302be361fc1db (diff) | |
Non-T arrays are simple constants too.
| -rw-r--r-- | src/code/macros.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/code/macros.lisp b/src/code/macros.lisp index aee8aee5e..a5a85f599 100644 --- a/src/code/macros.lisp +++ b/src/code/macros.lisp @@ -1113,7 +1113,7 @@ invoked. In that case it will store into PLACE and start over." (let ((value (constant-form-value `(progn ,@(cdr clause)) lexenv))) (if (typep value '(or symbol number - character)) + character (and array (not (array t))))) value (return)))) normal-clauses)))) |