From 85a201ea0b697d0cbe39500c979dcb5337d6b7f0 Mon Sep 17 00:00:00 2001 From: Gleefre <varedif.a.s@gmail.com> Date: Tue, 17 Oct 2023 19:33:51 +0200 Subject: [PATCH] Fix TYPE=. --- alexandria-1/types.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/alexandria-1/types.lisp b/alexandria-1/types.lisp index 443eb16..a2af4b0 100644 --- a/alexandria-1/types.lisp +++ b/alexandria-1/types.lisp @@ -130,8 +130,9 @@ types are not equivalent." (values nil ok)) (t (multiple-value-bind (sub ok) (subtypep type2 type1) - (declare (ignore sub)) - (values nil ok)))))) + (if sub + (values nil nil) + (values nil ok))))))) (define-modify-macro coercef (type-spec) coerce "Modify-macro for COERCE.") -- GitLab