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

subtypep: cleanup; remove unnecessary call

Browse source 
FIND-BUILT-IN-TAG works only on type specifiers being symbols , but we've
already estabilished that this type specifier is a cons (COMPLEX ,@args).
This commit is contained in:
Daniel Kochmański 2025-08-22 12:50:15 +02:00
parent 019579dd46
commit fb5969cdcc
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/lsp/predlib.lsp
View file

@ -1518,10 +1518,9 @@ if not possible."
(RATIO ,@(rest type)))
env))
(COMPLEX
(or (find-built-in-tag type env)
(canonical-complex-type (if (endp (rest type))
'real
(second type)))))
(canonical-complex-type (if (endp (rest type))
'real
(second type))))
(CONS (apply #'register-cons-type env (rest type)))
(ARRAY (logior (register-array-type `(COMPLEX-ARRAY ,@(rest type)) env)
(register-array-type `(SIMPLE-ARRAY ,@(rest type)) env)))