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