From da55448e4e1aad27d6a65d9c2fea09daa5e3f329 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sat, 17 Oct 1998 04:01:14 +0000
Subject: [PATCH] Fix for qualifier-check-runtime: qualifier list elements
 containing the symbol `*' now match single arbitrary qualifier elements -
 only a dotted lists ending in '*' had been handled. From Matthias Holzl.

---
 pcl/defcombin.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/pcl/defcombin.lisp b/pcl/defcombin.lisp
index 3680599e9..a8c2d9b2a 100644
--- a/pcl/defcombin.lisp
+++ b/pcl/defcombin.lisp
@@ -371,7 +371,10 @@
   (loop (cond ((and (null pattern) (null qualifiers))
 	       (return t))
 	      ((eq pattern '*) (return t))
-	      ((and pattern qualifiers (eq (car pattern) (car qualifiers)))
+	      ((and pattern qualifiers
+		    (let ((element (car pattern)))
+		      (or (eq element (car qualifiers))
+			  (eq element '*))))
 	       (pop pattern)
 	       (pop qualifiers))	      
 	      (t (return nil)))))
-- 
GitLab