491 |
(when (flag-p (third inline-info) itf) |
(when (flag-p (third inline-info) itf) |
492 |
(let ((restp (apply (car inline-info) arg-types))) |
(let ((restp (apply (car inline-info) arg-types))) |
493 |
(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)))))) |
494 |
(if (member 'integer (car inline-info) :key (lambda (x) (if (consp x) (car x) x)) :test #'eq) |
; (if (member 'integer (car inline-info) :key (lambda (x) (if (consp x) (car x) x)) :test #'eq) |
495 |
(return-from inline-type-matches nil)) |
; (return-from inline-type-matches nil)) |
496 |
(if (and (let ((types (car inline-info))(last t)) |
(if (and (let ((types (car inline-info))(last t)) |
497 |
(declare (object types)) |
(declare (object types)) |
498 |
(dolist** (arg-type arg-types (or (equal types '(*)) |
(dolist** (arg-type arg-types (or (equal types '(*)) |