From dceff2567963da1257ef78edba53477cd94fc4e7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Wed, 27 Aug 2025 12:14:06 +0200 Subject: [PATCH] predlib: fix a braino in one of the clauses of CANONICAL-TYPE Instead of returning the registered tag (when found), we've returned NIL. --- src/lsp/predlib.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp index 4a465a2bb..946a84618 100644 --- a/src/lsp/predlib.lsp +++ b/src/lsp/predlib.lsp @@ -1587,8 +1587,8 @@ if not possible." (t (ext:if-let ((expander (get-sysprop (first type) 'DEFTYPE-DEFINITION))) (canonical-type (funcall expander type env) env) - (unless (find-registered-tag (first type) #'eql) - (throw '+canonical-type-failure+ nil)))))) + (or (find-registered-tag (first type) #'eql) + (throw '+canonical-type-failure+ nil)))))) ((clos::classp type) (register-class type env)) ((and (fboundp 'function-type-p) (function-type-p type))