From fb5969cdcc162d5fef4cb3f89411c35beacb6a89 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Fri, 22 Aug 2025 12:50:15 +0200 Subject: [PATCH] subtypep: cleanup; remove unnecessary call 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). --- src/lsp/predlib.lsp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp index 21b0aeb3b..e450a939d 100644 --- a/src/lsp/predlib.lsp +++ b/src/lsp/predlib.lsp @@ -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)))