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