(in-package "PCL")

(defun qualifier-check-runtime (pattern qualifiers)
  (loop (cond ((and (null pattern) (null qualifiers))
	       (return t))
	      ((eq pattern '*) (return t))
	      ((and pattern qualifiers
		    (or (eq (car pattern) (car qualifiers))
			(eq (car pattern) '*)))
	       (pop pattern)
	       (pop qualifiers))
	      (t (return nil)))))