Skip to content
Snippets Groups Projects
Commit da55448e authored by dtc's avatar dtc
Browse files

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.
parent a2607559
No related branches found
No related tags found
No related merge requests found
...@@ -371,7 +371,10 @@ ...@@ -371,7 +371,10 @@
(loop (cond ((and (null pattern) (null qualifiers)) (loop (cond ((and (null pattern) (null qualifiers))
(return t)) (return t))
((eq pattern '*) (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 pattern)
(pop qualifiers)) (pop qualifiers))
(t (return nil))))) (t (return nil)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment