mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-09 22:50:34 -07:00
Code Issues Projects Releases Packages Wiki Activity

subtypep: fix the expansion of the type STRING

Browse source 
The type STRING was defined as an alias to (ARRAY CHARACTER (*)) and that was
inconsistent with the type definition for unicode builds, it should be:

    (OR (ARRAY CHARACTER (*))
        (ARRAY BASE-CHAR (*)))
This commit is contained in:
Daniel Kochmański 2023-07-21 11:48:12 +02:00
parent 135632bedf
commit e8f931c484
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/lsp/predlib.lsp
View file

@ -1349,12 +1349,11 @@ if not possible."
(SIMPLE-VECTOR (SIMPLE-ARRAY T (*)))
(SIMPLE-BIT-VECTOR (SIMPLE-ARRAY BIT (*)))
(VECTOR (ARRAY * (*)))
(STRING (ARRAY CHARACTER (*)))
#+unicode
(BASE-STRING (ARRAY BASE-CHAR (*)))
#-unicode (STRING (ARRAY CHARACTER (*)))
#+unicode (STRING (OR (ARRAY CHARACTER (*)) (ARRAY BASE-CHAR (*))))
#+unicode (BASE-STRING (ARRAY BASE-CHAR (*)))
(SIMPLE-STRING (SIMPLE-ARRAY CHARACTER (*)))
#+unicode
(SIMPLE-BASE-STRING (SIMPLE-ARRAY BASE-CHAR (*)))
#+unicode (SIMPLE-BASE-STRING (SIMPLE-ARRAY BASE-CHAR (*)))
(BIT-VECTOR (ARRAY BIT (*)))
(SEQUENCE (OR CONS (MEMBER NIL) (ARRAY * (*))))