518 |
(when (flag-p (third inline-info) itf) |
(when (flag-p (third inline-info) itf) |
519 |
(let ((restp (apply (car inline-info) arg-types))) |
(let ((restp (apply (car inline-info) arg-types))) |
520 |
(return-from inline-type-matches (when restp `(,(car restp) ,(cadr restp) ,@(cddr inline-info)))))) |
(return-from inline-type-matches (when restp `(,(car restp) ,(cadr restp) ,@(cddr inline-info)))))) |
521 |
(if (member 'integer (car inline-info)) |
(if (member 'integer (car inline-info) :key (lambda (x) (if (consp x) (car x) x)) :test #'eq) |
522 |
(return-from inline-type-matches nil)) |
(return-from inline-type-matches nil)) |
523 |
(if (and (let ((types (car inline-info))(last t)) |
(if (and (let ((types (car inline-info))(last t)) |
524 |
(declare (object types)) |
(declare (object types)) |